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AUTHOR’S INTRODUCTION 


Your Oric computer has been well designed and is a good 
investment. Its graphic and sound capabilities, though hard to 
access, are very powerful and this coupled to its massive 
memory and easy-to-use keyboard make it a winner. 


In this book, you will find the result of hundreds of hours 
programming and writing. This book offers 36 games and 
patterns and a couple of routines which, although they are not 
games, will help you in any future programming that you do. 
As | have written the programs, | have found the machine’s 
capabilities stretch and stretch and my own programming 
ability improve. | hope the same thing happens to you when 
you read and use the book. 


Every game is prefixed by areasonable length introduction. In 
these introductions, | have not only tried to explain how the 
game should be played, but have also given some idea of how 
the program works and where the vital routines are located. 
Add to this the useful chapters on programming, applications, 
loading and saving and a comprehensive glossary, and you 
will see that this book is more than just a programs book. 


Here then, is my book - | hope it provides you with much 
enjoyment and teaches you a few things. 


Happy Gamesplaying! 


Clive Gifford 
Ashford, Middx 
September 1983 


PROGRAM NOTES 


Before you start typing in the programs, there area few points 
which should be taken into consideration. Firstly, there area 
couple of idiosyncrasies concerning the printouts. The ‘£’ sign 
on the Oricis given the ASCII code 95, but unfortunately, most 
of the printers available convert the code 95 into an underline 
character, ‘_’. Therefore, wherever you see the underline 
character, type a pound sign in. Also, the Oric’s program lines 
cannot exceed 78 characters, which can be a bit of anuisance 
when dealing with complex calculations. Several lines in the 
book, therefore, have no spaces between statements. Be 
careful when you type these lines in. 


Many of the programs featured in this book are of some length 
and it is a good idea to save them on tape before playing them. 
It only takes a small knock as you battle your way through 
Laser War to disengage the power lead and lose the program 
and believe me, it does happen. Saving a program on tape only 
takes a short time (a couple of minutes) but it can save many 
hours work. If you have any trouble with your loading and 
saving reliability, then | suggest you consult the chapter 
dealing with this, near the back of the book. 


EATIE SWEETIE 


Once the craft lands, you follow the landing party as they 
scour the area looking for plant and animal specimens to take 
back to their planet, millions of miles away. Suddenly, there is 
aloud noise and all the others run back to the spaceship - but 
you are too slow and the craft leaves. You are alone on a 
planet, light years away from your home, very afraid and 
incredibly hungry! You chance upon a house where, to your 
surprise, there are tasty sweets laid all over the floor. Your 
only chance is to build up enough strength to contact the ship 
(mental telepathy is very exhausting) and explain your 
situation. You start eating...munch, munch, munch... but 
you are being followed by a robot programmed by NASA to 
catch you. It was the robot which laid the sweets and it is the 
robot who you must now avoid. There are other hazards too. 
Time is running out because if you take too long your ship will 
be too far away to contact. Also, the walls of the house have 
been electrified and if hit, they will sap your energy. You can 
withstand being caught or being electrified three times - after 
all, you’re a tough creature! 


Not everything is against you, however, as there are Krypton 
Clusters in the far corners of the house. If eaten they will 
replenish your strength to the extent that you can survive 
another onslaught from either the walls or the robot, and you 
are given a few extra seconds in which to continue munching. 
You will find a small passage linking the North and South 
wings of the house. The robot has not been programmed for 
this so it will not follow you if you choose to use this exit. 


This program is the result of many hours playing BASIC 
‘Pacman’ type games. Many of these programs have lacked 
the speed of machine code and any form of originality. In this 
program, | have tried to increase the interest by adding anew 
concept to the game, that of the stranded alien. Many other 
things have been changed but the basic aim still remains the 
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same: eat the pills/sweets as quickly as possible while 
avoiding the monsters/ghosts/robots. Adding a novel con- 
cept to atraditional program is an excellent way of writing new 
games. What starts as just a little twist on the old ideacan, and 
often does, develop into a totally separate game, sometimes 
bearing no resemblance to the original game. 


You control the alien using the arrow keys. The figure in the 
left-hand corner is the time left, while in the opposite corner 
the score is displayed. After being hit or captured, a green- 
coloured number will appear in the central yellow block. This 
depicts the number of lives you have left. There are three skill 
levels, ‘1’ is very difficult, ‘2’ is far from easy and ‘3’ is fairly 
gentle and suitable for arcade game beginners. There is ahigh 
score feature to keep you amused for some considerable time. 


| will just mention a few of the programming features found in 
the listing. Line 330 uses DEEK to read the keyboard, and lines 
350 and 360 convert the reading into the X and Y co-ordinates 
controlling the alien’s position. Lines 370 to 436 and lines 700 
to 740 control the robot’s movements. The program uses very 
simple intelligence for the robot but, as you can see by the 
robot’s positioning, the results are very effective. 


The various subroutines are all indicated by REM statements 
and are all fairly straightforward to follow. 


If you succeed in obtaining enough energy then the program 
flows to lines 4000 onwards, which prints a high resolution 
picture of the alien’s planet and plays a little suitable music. 


If you are defeated, the computer goes to line 5000 where a 
‘defeat’ message is printed, the score and high score 
displayed and the chance of another game is offered. 


The routine starting at line 8000 prints the maze, while the 
routine starting from line 9000 defines the alien, robot, sweet 
and maze graphics. 


10 REM*EXKKEATIE SWEETIE SKEKEK 

12 REM***Xk*xkCHECK THAT KEYCLICK IS ONkK*x 
*KKK 

15 GOSUB 9@0@:HI=@:FRINT CHR (4) 

2® GOSUEB 8eeaa 

30 FAFER @: INK = 

4A@ X=10:Y=X:R$="4"s A=14: B=19 

9@ SC=@sL=2:XX=Xs YY=¥ 

60 REMAXEKXGHOSTS MOVESEXKE 

65 FLOT 2,0, STR#(N) 

7® N=5000: TC=0: AA=A: BB=B 

2979 TC=6 

200 REMX*EKXMAIN LOOP AKKE 

302 PLOT 18,25," "sFPLOT 19,2," ":N=N-4 
305 FLOT 1,0,STR#(N)+" EATIE SWEETIE " 
+CHRS(96)+" 1983 “+STRS(SC 

yee 

320 C=DEEK (782): TC=TC+1 

240 PLOT X,Y,"4Z"sFLOT X,¥+1,"&" 

245 PLOT A,B,"’" 

747 IF N<@ THEN 5006 

35@ X=X+ (C=48251)- (C=48255) 

2460 Y=V¥+ (C=48275) —-(C=487219) 

362 IF X=18 AND Y=25 THEN X=19: Y== 

364 IF X=19 AND Y=2 THEN X=18:Y=24 

365 IF TC<J THEN 446 ELSE TC=0 

27@ IF A>X THEN A=A-1 

28@ IF A<X THEN A=A+1 


290 IF B>Y THEN B=B-1 

400 IF B<Y THEN B=B+1 

41@ IF SCRN(A,B)=27 OR SCRN(A,B)=28 THEN 
2808 

4270 IF SCRN(A,B)=25 THEN GOSUB 700 

426 IF B>24 THEN B=24 

471 IF B¢s THEN B=s 

424 PLOT AA, BERS 

435 IF A<2 THEN A=2 

426 IF A>Z7 THEN A=237 

44@ PLOT XX,YY," "“sPLOT XX,VYY+1," " 

445 IF SCRN(X,Y)=111 OR SCRN(X,Y+1)=111 

THEN GOSUE 1500 

447 IF SCRN(A,B)=27 OR SCRN(A,B)=28 THEN 
3000 

450 IF SCRN(X.Y)=25 THEN 2000 

460 IF SCRNCX,Y+1)=25 THEN 2000 

47@ IF SCRN(X,Y)=64 OR SCRN(X, Y+1)=464 TH 

EN GOSUB 900 

49@ XX=X: YY=Y: AA=A: BR=B 

50@ GOTO 208 

760 REMRX*XMOVE FROM WALL *XKX 

71@ A=A+RND (1) ¥5-RND(19*5 

720 B=B+RND (1) *4—-RND (1) «4 

722 IF A>Z7 THEN A=27 

722 IF A<2 THEN A=2 

724 IF B>24 THEN B=24 


910 


IF BX THEN B=3 

IF SCRN(A,B)=25 THEN 710 

RETURN 

REM&X kK &XMUNCHA KEE 

SC=SC+1it: IF SC>9OO@— ((10@0%J) + (1900- 


(2@@%J3))) THEN 4800 


920 


1500 


PLAY 1,7,1,70:RETURN 
REMAX KBONUS SWEET EX K* 


1510 PING:WAIT 25:PLAY 1,7,1,150 

1520 N=N+250:sL=L+1 

1530 PLOT 22,18, S5TRS(L)+CHRS (2) 

1540 RETURN 

2000 REMAEKKXHIT WALL EXKXK 

20085 EXPLODE 

2010 L=L-1:IF L=@ THEN 59800 

2020 INK @:WAIT S@sINK =F:WAIT SO 

20360 PLAY 1,7,1,8 

2040 X=10: Y=Xs XX=Xs YY=X 

2050 PLOT 22, 18, STR (L) +CHRS (2) 

20460 WAIT 150:GOTO 299 

3000 REMXX#XXCAPTUREXKXK 

2016 ZAP:WAIT 20: EXPLODE:L=L-1 

3@12 FOR H=1 TO 6: INK @:WAIT 12 

3@15 PLOT XX,YY," "sPLOT XX,YY+1," "sPLO 
T AA, BB," “:INK Z:WAIT 12 

3017 NEXT H 

3020 PLAY @,0,0,@:X=1@s Y=X2 XX=X: YY=X 
303@ A=19:B=19:PLOT 22,18, STR#(L) +CHRS(S 


) 
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204@ IF L=@ THEN 5060 

305@ GOTO 299 

4000 REMXKAEXSUCCESSAKAEKK 

4010 WAIT 10@ 

4020 HIRES: FAPER @:CURSET 5@,590,0 

4020 FOR R=1 TO 4@:CIRCLE R.1:NEXT R 
405@ CURSET 720,55,@:CIRCLE 6,@:CIRCLE 11 


4060 CURSET 70,20,@:CIRCLE 9,@:CIRCLE 4, 


4070 CURSET 10@,10@,1:CIRCLE 76,@:CIRCLE 
25,@:CIRCLE 24,@:CIRCLE 40 

Pa) 

4@8® CURSET 18,15,1:CIRCLE 15,9 

4090 FOR T=1 TO 20@:CURSET INT(RND(1) x22 

9) +1, INT (RND(1)*199) 41, 12NE 

ps ae 8 

4106 FOR T=1 TO 20:CURSET INTC(CRND(1)*216 
3+22, INT (RND (1) *170)+22, 

411® CIRCLE INTC(RND(1)%4)+2,1:NEXT T 

4120 PRINT:FRINT" Well Done! Eatie is 


home now!!!" 
414@ PLAY 1,0,2,8:PRINT CHRS(4) 


415 MUSIC 1,4,19,8:WAIT 80 
416@ MUSIC 1,4,12,8:WAIT B80 
4179 MUSIC 1,4,8,8:WAIT 80 
418@ MUSIC 1,2,8,8:WAIT 8@ 
419@ MUSIC 1.4,2,8:WAIT 150 
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FLAY @,8,0,0 


4210 IF KEY%="" THEN GOTO 4210 
4220 TEXT: PRINT: PRINT: PRINT" 
END OF GAME." 
4500 END 
5000 REMAXEXXDEFEATEX KEK 
5@@5 PLOT 24,18, CHRS(1) 
5@160 WAIT S@:INK 1:WAIT 5@ 
5@15 FOR R=1 TO 78 
5®2@ FOR T=1 TO 25 
503@ FLOT RT," " 
5040 NEXT T 
S@5@ NEXT R 
5068 PLOT 2,10,"You did not gain enough 
strength" 
5@7@ PLOT %,12,"to get back to your own 
world." 
S5S@86@ PLOT 2.14,"You are doomed to remain 
on this" 
5@9@ PLOT 12,16,"planet." 
514@@ WAIT 25@:IF SC>HI THEN HI=SC 
512@ PLOT 10,4,"HIGH SCORE: "+STRS(HI) 
512@ PLOT 4,20,"For another attempt, pre 
ss key S" 
5140 GET AS: IF AS="S" THEN GOTO 26 


5156 GOTO 5140 
BOG@ REMEXXEDRAW MAZEKEKXE 


B16 


CLS: PRINT: PRINT 
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BOAG PRINT" Heese de ase aed ae ae aa aE A aE aE EE A A Ea AE aE 
HEHEHE" 
8050 PRINT" #2@G2#GCGRRECECEHEERAHERREEEE 
BeGeGeHt" 
860 PRINT "#@0G@G#GGCGCCCGCEHEEGEHEGEEEEE 
RAGOEEHE" 
8070 PRINT" ##6GG# GGG EGER GRHEEEEHEEOEERE 
GREET" 
BOBO PRINT" ###GG# GR GGCGERBEKEGRREHEGEEERE 
BRCEHHHE" 
BO9GO PRINT" H##HSHEE EE HASH EE HH OS EE ESCH HE HF 
KHER EEE" 
8140 PRINT" ###26# GRGCEEREREERREEREEEGRHHE 
BEGG HHH" 
8116 PRINT" ##@GG#GGGGGRRGEEEGEREREEEREGe 
BELAGEHE" 
8120 PRINT" #2GC#HECEHEE EE HE HH OB CREGEREEE 
ICICICICICICy By 
B120 PRINT" #4G###SCCCEE HH HG CERRGCEREEHHE 
@GGGeEER#" 
8140 PRINT" #6G# F# CREECH FACE CREREEEHEHE 
SGGCERBEH" 
B150 PRINT" #2G###CCRREEHH HA CEREEEREGEHEHE 
BEeREBEH" 
8160 PRINT" #@@CG@GRGGCEECERGEREEHHHEERAGE 
CE CICICicic’ By 
8170 PRINT" #@2G2GGCRCR EGER EEEREEHtH HAGCERE 
@SRBeeRH" 


B18O PRINT" ## tt ## #2 GR BOH HA GR ARGEHHHEE HEHEHE 
#@GRGGEH" 

8190 PRINT" #2GGGGGGGREHHERGOHHHHEEHHGOEE 
SIICIEISICE Be 

B2G0 PRINT” #2 SSSR RRGGRHHAGEAREHHE HH HGECR 
REGRRREH" 

8210 PRINT" #264 #GCH FE $F HECECROHEH HEHE ECRER 
BEECH HEE" 

B220 PRINT" #2@# #BGHHHEH HG CARGBHEHHEHEGEE 
PASH EH Ht" 

8220 PRINT" #284 #GCHHHHH HE BERG RHHEHHE HEGRE 
BOHHHHH HE" 

B24@ PRINT" #2G2GGCH HE F# GC REEECEEEHHFGGEE 
BHHHGORH" 

8250 PRINT" #$@GGGG#t# ## ## 2668 GGGECREGEBERE 
CUSTCLEIC IEICE dag 

B260 PRINT" #860@@ ## ## ## 2G GCCR GC GRBRRGGEE 
BEBEGeRH" 

B2A7TO PRINT " #4 ae ee eae ae Ee a aa EE ae EE EEE EE 
HEREEEEE" 

B400 RETURN 

9@@@ FOR P=44360 TO 46367 

97016 READ N:POKE F.N 

9020 NEXT P 

9@3@ DATA 62, 62,623,463, 62,63, 62, 63 

905@ FOR P=46592 TO 44599 

904@ READ N:POKE FN 

9070 NEXT P 


9@B® DATA 0,9,0,12,20,12,0,0 
9090 FOR P=46276 TO 46398 

910@ READ N:POKE FN 

911@ NEXT P 

912@ DATA 62,42.42,62.8.8,8,42 

9130 DATA 62, 28, 28, 28, 62,54,54,0 

914@ DATA 12,20,45, 45, 62,33, 63, 43 

920@ REMEXXKXTITLEREE ERE 

921 CLS:FAPER 4: INK 7 

9220 FOR P=1 TO 95@:PRINT"?"3:NEXT P 
923@ PLOT 10,10," EATIE " 

924@ PLOT 10,11," " 

925@ PLOT 10,12." SWEETIE " 

926@ WAIT 25@:FOR T=1 TO 26:PRINT:NEXT T 
927@ PLOT 1@,1@."WHICH LEVEL? 1,2,3" 
9280 GET L$: J=VAL (L$) *2: RETURN 
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EXECUTIVE DECISION 
MAKER 


We all have to make decisions sometime in our lives, some of 
which we would rather not make. Why not make it easier on 
yourself, and let your computer decide for you. 


In this program, inspired by those little executive dice which 
have three sides stamped ‘NO’ and three sides stamped ‘YES’, 
you have your mighty Oric ready and waiting to solve your 
biggest headaches. The range of responses is somewhat 
more than ‘YES’ or ‘NO’ as you will see when you run the 
program. 


The computer switches into CAPS OFF mode and any 
question must begin with a capital letter and end with a 
question mark. All inputs apart from the question are single 
key entries without any need to press the Return key. GET is 
used to collect your response. 


If your question begins with certain words then particularly 
cheeky responses are thrown back at you. Even the final 
decision is not as simple as the executive dice as there are 
seven possible answers, many as ambiguous as the answers 
we receive in real life. 


| have tried to keep the BASIC code ata minimum while trying 
to retain a flexible response to the player’s prompts. 
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16 REM*X*XEXECUTIVE DECISION MAKERX* 

26 PRINT CHR (20) 

20 CLS:FRINT:PRINT"Hello Sir, May I be o 
# help?" 

4@ GET ASIF AS<>"y" THEN 48 

50 PRINT:IFRINT"May I have your name?":PR 
INT 

6@ INFUT N&: PRINT: PRINT 

7@ PRINT"Thankyou, my name is Eric" 

80 FRINT:FRINT"Now then, What is your qu 
estion "sNe;">" 


9@ PRINTSPRINT:INFUT OS 


10@ REM***kPHRASE FROCESSING/RESFONSES&*% 
116 L=LEN(Q$) 

115 QS=LEFTS(Q%,L-1) 

120 PRINT: PRINT: PRINT 

12@ IF LEFTS(Q@%,4)="What" THEN FPRINT"Fra 


nkly I don’t know ";Q% 

14@ IF LEFT# (0%, 2) ="How" THEN PRINT"How 
should I know, I’m only am 

achine" 

15@ IF LEFTS(Q%,2)="Who" THEN PRINT"T su 
agest that you have a look 

in "™ 

16@ IF LEFTS(Q%,2)="Who" THEN PRINT: PRIN 
T"WHOS WHO. That will tell 

you" :FRINT, @% 

17@ IF LEFTS(Q%,4)="When" THEN FRINT"T a 
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m not interested in time sc 


ales." 


188 
is 
198 
is 


2a 


220 
228 
249 
258 
2408 
27® 
28e 
29@ 


3008 


218 


IF LEFTS(Q$,2)="Why" THEN PRINT"Curs 
not to reason why," 

IF LEFTS (Q%,2)="Why" THEN FPRINT"Ours 
but to do or die." 

IF LEFTS(Q%,1)="W" OR LEFTS(Q%, 3)="H 
THEN 426 

REM***EKADECISION MAKINGX*X kx 

WAIT 2ae@ 

R=INTCRND (1) x10@)+1 

IF R41 THEN FHINT((R/1@)+5) 

IF R>4@ AND R<41 THEN P=5 

IF R268 AND R<BL THEN P=é6 

IF #>8@ THEN F=7 

FOR xX=1 TOF 

READ L¢ 

NEXT X 


DATA "Possibly with some good luck", 


"Definately", “Certainly not 


320 


DATA “Perhaps in the near future",."M 


aybe. whe “u _ SNES ts "NO" 


328 
248 
258 
268 


278 


CLS 

FOR T=1 10 8 

PLOT 10,1@,"DECISION MADE" 
WAIT 25 

PLOT 18,10," " 
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WAIT 25 

NEXT T 

WAIT iS@sFOR T=i TO 14:FPRINT:NEXT T 
FRINT"ANSWER:—-— "“slés" "SNS 
PRINT:PRINT:FPRINT"Press my spacebar 


"sNS:GET AS:CLS 
420 PRINT: PRINT: PRINT: PRINT 


4Z2@ PRINT"Can I be of anymore help?" 
44@ GET AS: IF At="y" THEN 80 
45@ PRINT CHRS(2@):END 
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DROIDS 


You have been cast into the Labyrinth Of Despair, a fearsome 
place filled with powerful forcefields which will destroy 
anything that comes into contact with them. And what is 
worse, a number of droids have been locked in with you. 
These creatures have been programmed to home in on you 
and to destroy you as quickly as possible. However, they have 
not been programmed for the forcefields, and using skill and 
Cunning you can lure them to their destruction. You move by 
entering ‘N’, ‘S’, ‘E’ or ‘W’, and the droids can move one space 
at a time at the same rate as you but they choose the quickest 
way towards you and can also move diagonally. By putting a 
forcefield between yourself and a droid you should be able to 
lure it into the forcefield. 


You are offered a skill level between three and 12 which 
converts into the number of droids in the labyrinth with you. 
Your aim, obviously, is to vaporise all of the droids before 
they get to you, and without walking into a forcefield yourself. 


| suggest that you start off with around four or five droids. You 
will find that the odds of you succeeding are high and when 
you have nine or 10 robots, your task is almost impossible. 
But | will never forget that in one run, sadly when the printer 
was disconnected, | managed to clear a labyrinth containing 
11 robots. The stuff that dreams are made of... 


You are the ‘H’, the droids are the asterisks and the forcefields 
are ‘O’s. 
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16 REMAKES EXDROTDSEREEEEEKE 

iS PAPER 2: INK © 

17 GOSUB 1019 

2@ GOTO 25e 

20 REMAKEXMOVE DROIDSEXE 

46 T=6 

5S@ FOR E=i TOL 

6@ IF ACB(E),C(E))=79 THEN T=T+1:GOTO 20 


7@® X=B(E):Y=CCE) 

B@ IF BCE)<D THEN BCEY=B(E}+1 

9@ IF BCE)>D AND RND(1)>.2 THEN BCE) =B(E 
y-1 

1@@ IF C(E<F AND RND(1)>.2 THEN CCE} =C¢ 
Ed+1 

11 IF CCE)>F THEN C(E)=CCE)-1 

120 IF BCE Z2 THEN BCE)=2 

12@ IF &(E)>14 THEN BCE}=14 

14@ IF C(EI<2 THEN CCED=2 

15@ IF C(E)+14 THEN C(E}=14 

160 ACX, 4) =46 

17@ IF ACB(E),C(E))=79 THEN T=T+1:GOTO 2 
aa 

189 IF A(B(E),C(E))=72 THEN A(B(E),C(E)) 
=26:GOSUR 7@@:GOTO 916 

199 ACB(E),C(E))=42 

200 NEXT E 

21@ IF T<CH THEN T=CH 
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228 CH=T 

220 IF T=L THEN GOSUB 26@:COTO 976 
240 RETURN 
258 GOSUB Sze@ 
260 GOSUB 2 
278 GOSUB Ze 

2808 GOSUB 420 

298 GOTO 246 

7a0 REMKXKEEPRINT DISPLAY EXEE 

205 PING 

21@ CLS 

215 PRINT: FRINT TAB(24) "DROIT D S":PR 
INT 

220 IF T>@ THEN PRINT"Vaporised Droid Ta 
live "sT 

2z@ IF T=@ THEN PRINT: PRINT 

24@ PRINT: PRINT 

25@ FOR B=1i TO 15 

36@ FOR C=1 TO 15 

=7@ PRINT CHR#(A(B, C33" "5 

288 NEXT C 

290 PRINT 

4@@ NEXT & 

41@ RETURN 

420 REMEX*EXPLAYER MOVEXKXE 

42@ ACD, F}=46 

440 GET AS 

45@ IF AS="N" AND D?2 THEN D=D-1 
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470 IF AS="S" AND D<14 THEN D=D+1 

48@ IF At="E" AND Ft1i4 THEN F=F+1 

49@ IF Ag="W" AND FSS THEN F=F-1 

30@ IF A(D,FI=79 THEN GOSUBR 7@@:GOTO 998 
S19 ACD.F)=72 

S2@ RETURN 

S28 REMEXKINITIALTISEX* 

Ss@ DIM AC1&5,15).8(12) ,.C(12) 

56@ CLS 

S7@ PRINT: FRINT"Please stand by for a mo 
ment..." 

388 CH=0 

61@ REME*X*XPLACE WALLS*#**xk 

62@ FOR B=1 TO 15 

62@ FOR C=1 TO 15 

540 A(B,C)=46 

65@ IF B=1 OR B=15 OR C=1 ORF C=15 THEN A 
(B,C)=88 

66@ NEXT CzNEXT B 

&7@ REM**kxXPLACE FORCEFIELDS**#*k 

66 FOR B=1 TO 2a 

69@ C=INTCRND(1)*12)41 

7@@ D=INTCRND(1)*#12)4+1 

71@ IF ACC, D)=BB THEN 498 

720 A(C,D)=79 

720 NEXT & 

748 DATA 4,4,12,8.8,27,12.7 

75Q REM*XXKXPLACE DROIDSH*KX* 
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746@ FOR E=1 TOL 
77@ D=INTCRND (1) 412340 
789@ F=INTCRND (1) "1242 
79@ IF A(D,5)<246 THEN 77 
B@® B(E)=D:C(EI=F 
81@ ACB(E),C(E})=42 
826 NEXT & 
Bz@Q REMKXKXPLACE HUMANSEXK 
B4@ D=INTCRND(1)*12)4+2 
85@ F=INTCRND(1)*12)+2 
84@ IF A(D,F)<:4& THEN 82a 
878 ACD.,F)=72 
88@ RETURN 
91@ REMKX*XKFINISH GAMEXXEXK 
92@ CLS:PRINT:PRINT"A droid has got you! 
'": ZAP: ZAPF: ZAF 
920 CH=@:T=@:GOSUR 740 
940 AS=""ZPRINT:IPRINT"INFUT *S*? to start 
."SINPUT St: IF Ss<>"S" THEN 
940 


S 


95 GOSUB 57@:GOTO 240 
978 CLS: PRINT: PRINT"You’ ve defeated the 
DOroids!!" 
973 MUSIC 1,4,4,9:WAIT S@:PLAY ©,6, 0, ¢ 
98@ GOTO 926 
99@ CLS: PRINT: PRINT"You’ ve run inte a fo 
rcefield!!":EXPLODE 
19@@® GOTO 97a 
1@1@ CLS:FOR T=1 TO 24:PRINT:S NEXT T 
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14@2@ PRINT" $¢e¢¢ 
$tees" 


1@2@ PRINT" & & 
eu 

1946 PRINT" ¢ © 
$ttse" 

1@56 PRINT" ££ 


a" 

1966 PRINT" ¢¢ee¢ 
$$See" 

1470 PRINT:PRINT 


148 


‘! 


1@9@ PRINT:PRINT: INFUT"WHICH LEVEL (3-1 


ie ft 


$ESES 


SSESS 


TAB (27) 


Shtte ¢ 
$ $ ¢ 
$ $ 
$ & ¢ 
SEES ¢ 


CHR (94): " 


FOR T=1 TO 14: PRINTSNEXT T 


116@ IF L>i2 OR L¢2 THEN 1898 


111@ WAIT S@:T=6: 


RETURN 
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HAWKS AND DOVES 


You have the power of life and death over a population of 
hawks and doves in this game. You must decide how many 
hawks and how many doves to put inside a large cage. Too 
many hawks and the doves will not breed fast enough to feed 
them. Too many doves and the hawks will be overcrowded. 


The computer provides you with a month by month read-out 
of the cage’s population. 


There is a high score feature which will tell you the best effort 
so far. This, of course, returns to zero each time the programis 
run. 


The variables used are: 


HI = High score counter. 

FD = Random number of doves needed to feed each hawk. 
CP = Hawk population. 

MP = Dove population. 

DA = Month. 

X = Pause loop counter. 


1@ REMAXX*XHAWKS AND DOVESHK#K 

2@ CLS:FAPER 4: INK 7 

2@ PRINT"WELCOME TO HAWKS AND DOVES." 

25 PRINT: PRINT 

4@ PRINT"THE OBJECT OF THIS GAME IS TOC 

REATE" 

45 PRINT"A FOPULATION OF HAWKS AND DOVES 
WHICH" 
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S@ PRINT"WILL SURVIVE FOR AS LONG AS FOS 
SIBLE." 
SS PRINT: PRINT: PRINT 
6® PRINT"PRESS ANY KEY TO CONTINUE" 
65 GET At 
7@ HI=0 
@@ FD=RND(1) 
9@ CLS 
oS PAPER 7:INK @ 
@@ PRINT: PRINT"HOW MANY HAWKS WILL YOU 
START WITH?" 
11@ INPUT CP:IF CP299 OR CP<1 THEN PRINT 
“TRY AGAIN":GOTO 110 
12@ MUSIC 1,2,10@.4 
25 WAIT 12@:FLAY @,0.@,@ 
12@ PRINT: PRINT"HAWK POPULATION: ":CP 
14@ CP=CP/Z 
145 PRINT: PRINT 
15@ PRINT"HOW MANY DOVES WILL YOU START 
WITH?" 
16@ INPUT MP:IF MP299 OR MP<1 THEN PRINT 
"WRONG SIZE":GOTO 140 
19@ MUSIC 1,2.4,4:WAIT 120 
195 PLAY 0,0,0,@ 
20@ PRINT: PRINT"DOVE POPULATION: ";MP 
21@ FOR X=1 TO 10@@:NEXT X=CLS 
22@ MP=MP/Z 
25@ GOSUB 55e 
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ZzS 


tact et 


240 


DA=0 
DA=DA+1 
PRINT: PRINT: PRINT"MONTH ":DA 


5 PRINT"~---~-- 


IF CPSMP/FD THEN CP=MP/FD 
CP=ABS (CP+ ( (2XCF-CP AMF /Z) XFD) } 


MP=ARS (MP+ ( (44MP—MPXCP) &. 1) 
MUSIC 1.2.4,9:WAIT 4@ 

MUSIC 1.3,8.9:WAIT 4a 

MUSIC 1.2,6.9:WAIT 5@ 

PLAY 0.0.0.8 


PRINT: PRINT: PRINT INTCCP)s "HAWES"... 


INT (MP) s "DOVES" 


378 
780 
290 
4.00 
405 
41@ 
RUN 


GOSUB SSe 

IF CP<2 OR MP<2 THEN GOTO 408 
GOTQ 276 

IF MP>2 AND CPS2 THEN GOSUB 55a 
PRINT: PRINT: INK 1 


IF MP<2 AND CPe2 THEN PRINT"WE HAVE 


OUT OF HAWKS AND DOVES! 


":GOTOM 468 


429 
RUN 
Aza 
RUN 
460 
AND 


4é5 


IF CP<2 AND MF?2 THEN PRINT"WE HAVE 


QUT OF HAWKS! ":GOTO 44@ 


IF MP<2 AND CFO? THEN PRINT"WE HAVE 


OUT OF DOVES!" 


PRINT: PRINT" THE FOFULATION OF HAWKS 


DOVES" 
PRINT"SURVIVED FOR "3DA:" MONTHS. " 
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470 IF DASHS THEN HS=DA 

4B8@ FOR X=1 TO 10@@@:NEXT X:FRINT:FPRINT"T 

HE LONGEST SO FAR IS "3HS 

485 PRINT: PRINT 

49@ PRINT"PRESS *¥* FOR ANCTHER CAGE. OR 
7h? TO STOP." 

GET A& 

IF At="¥" THEN GOTO 94 

IF AS="N" THEN GOTO S2a 

GOTO See 

CLS 

PLOT 16,12, "GOODBYE" 

54@ END 

S5@ FOR X=1 TO S@0:NEXT X 

S6@ ZAPF 

S7@ FOR X=1 TO 12@@:NEXT X 

3 
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388 CLS 
290 RETURN 
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3D CONE 


Using this listing, you can form a very complex pattern which 
takes some time to generate. This program produces, as the 
title suggests, a cone shape in a three-dimensional image. | 
have added a burst of sound at the end so that if you cannot 
wait for it to fully run, then you can leave the computer and go 
and have a cup of tea. The beep will tell you when to come 
back. 


Try and change the equation in line 70 or line 50, or change 
the size of the step in the loop. | experimented with many 
values before | came up with this one, but it doesn’t mean that 
there are not better ones—so go and have an experiment. 


1@ REMA*#kxX2 D CONEXAKAK 

2@ HIRES: INK 7 

Zo PRINT: PRINT" 2D CONE "3CH 
R#(94)35" 1982" 

20 FOR A=-10@ TO 108 

4@ J=O:kK=1:T=10 

S@ V=TXINT (SOR (1 @@@6-AxXxA) /T) 

4@ FOR B=V TQ -V STEP -—T 

7® C=INT(8@+2OxSIN((SOR (CAKA+B*B) 9 /12)-@0, 


7*B) 

8@ IF C<J THEN 120 

9@ J=C 

19@ CURSET A+11®,C-15,1 
11@ K=e 


12@ NEXT BsNEXT A 
120 SOUND 1,2@@,8:WAIT 15@:FLAY @,0,0,0@ 
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NOUGHTS AND CROSSES 


Everyone has heard and has played noughts and crosses so 
there is no need for me to explain how to play. Just simply 
enter the number of the position you would like to fill. 


Noughts and crosses is one of the earlier computer games 
written around the time of the first ‘Lunar Lander’ and ‘Hunt 
the Wumpus’ games. 


This program incorporates a small random feature which 
makes the computer’s play at times a little unpredictable. | find 
this adds to the enjoyment of the game. This program can be 
beaten—though to write an unbeatable program would have 
been a lot easier! However, there is little fun generated from 
the futility of playing a machine knowing that it is impossible 
to beat. 


The pattern displayed at the beginning of the game is 
generated from line 912 onwards. 
Happy OXO’ing! 
1@ REM****xxNOUGHTS AND CROSSESA&k*Xkx 
28 GOSUB 912 
20 CLS 
25 PRINT:FPRINT"NOUGHTS AND CROSSES" 
37 PRINT: PRINT 
4@ N=o 
5@ PRINT"Press any key when" 
6@ PRINT"you’re ready to play" 
7@ N=N+1i:IF KEYS="" THEN 7@ 
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8@ CLS:DIM A(9) 

119 CLS:FOR N=1 TO 9:A(N)=@:NEXT N 

12@ IF RND(1)>.5 THEN PRINT"1I711 have th 
@ First move": WAIT 2@@:CLS: 

GOTO 176 

12@ GOSUE 75@:GOSUB 48@:GOSUB 47a 

17@ GOSUB 75@:GOSUB 48a 

18@ IF A(S)=@ THEN A(S)=1:G0TO ita 

190 REM**X*xXk**kROW/ BLOCKRELEASECOMFLETION 
XKKKKK 

248 D=1 

21@ B=1 

220 IF B=1 THEN X=1:Y=2:72=2 

22@ IF B=2 THEN X=1:¥Y=4:Z=7 

24@ IF B=2 THEN X=1:Y=5: Z=9 

2o@ IF B=4 THEN X=2:Z=7 

268 C=1 

27@ IF ACX)=D AND ACY)=D AND A(Z}=@ THEN 
A(ZI=1:GOTN 126 

280 IF A(X)=D AND ACY)=@ AND ACZ)=D THEN 
ACY¥)=1:G0TO 126 

29@ IF ACX}=@ AND ACY)}=D AND A(Z)=D THEN 
A(X)=1:GOTO 178 

3@@ IF B=1 THEN X=X4+2:Y=¥+2: Z=Z7+2 

21@ IF B=2 THEN X=X+12¥=V¥t+is Z=Z+1 

22@ IF C<=2 THEN C=C+1:GOTO 274 

t2Q@ IF BY 4 THEN B=B+1:GOTO 22a 

240 IF DKS THEN D=D+1:GOTO 216 


ta 


aN 
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510 
520 
520 
540 
55@ 


REMXX*£*K*XRANDOM MOVER ERK 

B=1 

D=INT CRND (1) *#99+4+1 

IF A(CI=@ THEN A(CI=1:GOTO 120 
B=B+1 

IF B<2i THEN 270 

B=@ 

P=B+1 

IF ACB)=8 THEN A(B)=1:GOTO 126 
IF B&O THEN 420 

GOSUB 75a 

PRINT:PRINT"It’s a draw!" 

GOTO 4658 

REMEXEXSWIN CHECKKXXS® 

FOR B=1 TO 4 

IF B=1 THEN X=1:Y=2:7Z=2 

IF B=2 THEN X=1:Y=4: Z=7 

IF B=2= THEN X=1:Y=5:Z=9 

IF B=4 THEN X=2:Z=7 

FOR f=1 TO = 

IF ACXI=ACY) THEN IF ACY) =A(Z) THEN 


IF A(XI<>@ THEN 610 


36a 
378 
588 
S78 
600 
619 


IF B=1 THEN X=X+2:Y=¥+2:3 Z=Z+% 
IF B=2 THEN X=X+1:Y=¥+1:Z=Z+1 
NEXT C 

NEXT B&B 

RETURN 

REMK¥XXWINKKEE 
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620 PRINT: PRINT 

62@ IF A(X}=1 THEN FRINT "I?m beat vou h 
uman!" 

640 IF AC(X)=2 THEN FRINT"Well done, you 
beat me, human!" 

65@ WAIT 7ae 

646@ GOTO 114 

67@ REMEKXEXPLAYER MOVEXKE 

686 PRINT:PRINT"Enter your move" 

698 AS=KEYS 

7@@ IF AS<"1" OR AS>"S" THEN 4690 

71® B=VAL (AS) 

72@ IF A(B)<>@ THEN 690 

720 ACB)=2 


74@ RETURN 

75Q@ REMKRKXKDISPLAY KEKE 
76® CLS 

77@ PRINT: PRINT: PRINT: PRINT 
78@ PRINT"1 2 = we 

799 FLAG=0 


80® FOR B=1 TO 9 

81@ IF A(B)=@ THEN FLAG=1 

82@ IF A(B)=@ THEN PRINT" — "; 

B2@ IF A(B)=1 THEN FRINT" QO "; 

840 IF A(B)=2 THEN FRINT" X "3 

85@ IF B=2 THEN PRINT: PRINT: PRINT"4 5 6 


840 IF B=6 THEN PRINT:PRINT:PRINT"7 8 9 


Me 
BI 
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99@ 
990 


NEXT B 

PRINT: PRINT 

IF FLAG=@ THEN 440 
R=INT(RND (1) #12) +1 

MUSIC 1,2.R.7:WAIT Z@:PLAY 0.0.0.0 
RETURN 

REMAXX*KkKHIRES DISPLAY RE KKEKK 
HIRES 

FOR M== TO & STEP 3 

FOR T=1 TO 199 STEP M 

CURSET T+1@,0.1 

DRAW 199-T,T.1 

INK INT(RND(1)*7) +1 

CURSET 209,T.1 

DRAW -T,199-T,1 

CURSET (199-T)+1@, 199.1 

DRAW -—(199-T),-T.1 

CURSET 1@,199-T,1 


19@® DRAW T.-(199-T),1 

1@1@ NEXT T 

1@20 NEXT M 

1@22 INK 4 

1625 FRINT" NOUGHTS AND CROSSES" 
1027 PRINT" ";CHRS(96)5" 198 


zu 


1920 WAIT 2@@:PING: FING 
10235 TEXT 
1040 RETURN 
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RUSSIAN ROULETTE 


Not much of a game when played seriously as many poor 
soldiers found to their cost when taken prisoner in Vietnam, 
but thankfully our version is harmless. You must enter a 
chamber number from one to six, this is the chamber which 
will be fired at you. If this number equals the computer’s 
number, then the chamber contains a bullet when fired and 
you suffer. This small program is an ideal way to go through 
some of the more widely used BASIC commands and simple 
routines. Below is a line-by-line description of the program 
which should aid the less experienced programmer. 


LINE DESCRIPTION/ACTION 
10 A simple remark indicating the title of the program. 
20 R, a variable, is given the value zero. R stands for the 


number of rounds. At the beginning of the program, 
this should also be set to zero. 


30 The screen is cleared, the background colour set to 
red and the foreground set to white. Two blank lines 
are printed. 


40 One is added to the number of rounds, the number of 
round then being displayed on-screen. 

45 S is assigned a random number between one and six. 

50 The line waits for the user to enter a number. 

60 This line checks to see that the number entered is 
between one and six. If not, a message is displayed 
and the computer goes back to line 50. 

70 Tells the user to press a key and then waits for asingle 
keypress. 

80 Waits/pauses for a short time then checks to see if the 
user’s number is the same as the computer’s chosen 
number. If it is, then the user has lost and the computer 
goes to line 130 where the ‘lose’ routine starts. 

90 Plays a deep sound for a short time. PLAY 0,0,0,0 
switches all the sound channels off. 
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100 
110 


115 
120 


130 


140 
150 
160 


170 


180 


185 
190 


19 


” 
= 


28 
46 


5@ 
50 


Displays the ‘win’ message. 

“Another Go?” prompt. Also waits for the player’s 
answer. 

Stops the player from quitting after the first round. 
The program cycles back to line 30 if the player wants 
another go. If anything apart from the ‘Y’ key is 
pressed, the program goes to the ‘end’ routine (lines 
160 onwards). 

Generates the gun sound, clears the screen and the 
background is set to black. Displayed near the centre 
of the screen is the ‘lose’ message. 

This is a small loop which prints the number of rounds 
that the player survives, at an angle across the screen. 
This line introduces a pause, then finishes the 
program. 

Clears the screen, sets the background to pink 
(magenta) and the foreground to black. 

This is a loop which prints the computer’s reply to the 
player giving up. The figure ‘13’ is added to the TAB 
command due to one of the Oric’s bugs in its operating 
system. The number ‘13’ must be added to any TAB 
value to get the proper column positioning, eg for 
column 28, the TAB value must be 41. 

If the loop has reached halfway then this line makes 
the ZAP sound, one of the Oric’s four pre-defined 
sounds. 

The command which continues the loop. 

A pause, the screen is again cleared and the computer 
goes back to line 140 to print the number of rounds 
played. 


REM&&#*2RUSSIAN ROULETTEKR EK 

R= 

CLS: PAPER Ls INK 7: PRINT: PRINT 
R=R+1:2:PRINT" THIS IS ROUND "SR: PRINT 
S=INTCRND(1)2%4)+1 

INPUT"CHOOSE A CHAMBER (1-6)"5C 

IF C41 OR C246 THEN PRINT:PRINT"TRY AG 
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AIN, DUMMY": PRINT: ZAP: SOTO 

5@ 

7® PRINT:FPRINT"FRESS TRIGGER (PRESS ANY 

KEY) ":GET AS 

8@ WATT 6@:1° C=S THEN 126 

9@ SOUND 1,2@0@,15: WAIT 10: FLAY @,8,@,4 
10@ PRINT: PRINT"CLICK....YOU SURVIVED" 
11@ PRINT: FPRINT"AGAIN? (Y/N ":GSET ASIFRI 

NT 

115 IF R=1 AND AS<>"Y" THEN PRINT"YOU MU 

ST TRY AGAIN! ":WAIT 15@:G0T 

Q 26 

12@ IF LEFT#(AG,1}="Y¥" THEN 3@ ELSE GOTO 
16a 

12@ SHOOT: CLS:PAPER @:FILOT 19,10, "BANG.. 

.~YOU ARE DEAD" 

14@ FOR T=1 TO 14:PRINT:NEXT:PRINT TAR(2 

@) "YOU SURVIVED ";R-1; "ROUN 

pos" 

15@ WAIT 12@:END 

16@ CLS:PAFER S:INK @ 

174 FOR 4=1 TO 24:PRINT TABC1IE4+A) "XCHICE 

ENX" 

18@ IF A=12 THEN ZAF 

185 NEXT A 

199 WAIT 19@:CLS:GOTC 148 
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CREATOR 


This is your chance to design cell colonies in this semi-serious 
program. Credit for this program and for the many others 
which have been written for other computers must go to John 
Conway who in 1970, invented this simulation. It has been 
chopped and changed ever since and this program has been 
developed from a Microsoft BASIC program | wrote some 
time ago. 


Despite the changes made, the basic rules remain the same. 
Each cell on the grid may have neighbours and if it has no 
neighbours, then it dies. 

Every cell with two or three neighbours survives the next 
generation. 

Every cell with exactly three neighbours gives birth to a new 
cell. 

If a cell has more than three neighbours, it dies from 
overcrowding. 


The program offers a pretty speedy way of setting up your cell 
colony structure. The co-ordinates of one space on the grid 
are displayed. If you wish to place a cell there, then you press 
the spacebar; if not, press any other key except for ‘N’. When 
you have finished designing your colony, press ‘N’ and the 
life-cycle will start. As a new generation is ready to appear, a 
bell sounds and the new colony is printed. 


You can get a lot of fun out of seeing how long you can design 
a colony to last. 


The lines 17@ to 240 check each space around the cell to 
check for neighbours. Lines 300 to 40@ print every new 
generation and lines 500 onwards contain the instructions 
and the starting routine. 
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10 REPO CREATOR INO IOk 
20 G=1 

25 PAPER @:INK 2 

3@ CLS 

40 DIM M(1@,1@) 

5® DIM N(1@,10) 

8@ GOSUE See 

12@ GOSUB zae 

12@ G=G6+1 

14@ FOR K=2 TO 9 

15@ FOR Z=2 109 

146@ C=a 

17@ IF M(K-1,Z-1)=1 THEN C=C+1 
19@ IF M(K-1,2)=1 THEN C=C+1 
19@ IF M(K-1,Z+1)=1 THEN C=C+1 
20@ IF M(K,Z~1)=1 THEN C=C+1 
21@ IF M(K,Z+1)=1 THEN C=C+i 
22@ IF M(K+1,Z-1)=1 THEN C=C+1 
22@ IF M(K+1,Z)=1 THEN C=C+1 
24@ IF M(K4+1,Z+1)=1 THEN C=C+1 
25@ IF M(K,Z)=1 AND C<>2 AND C<>2 THEN N 
(K, Z) =@ 

260 IF M(K,Z)=@ AND C=% THEN N(K.Z)=1 
27@ NEXT Z 

28@ NEXT K 

29@ GOTO 120 

20@ PING 

205 CLS 
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212 PRINT" CREATCR" 

214 PRINT 

218 PRINT"GENERATION: ";G:PRINT 
22@ FOR K=1 TO 18 

Zz@ PRINT TABC1@); 

240 FOR Z=1 TO 18 

25@ MK, ZI=N(K,Z) 

260 IF M(kK,Z)=1 THEN PRINT"O"; 
265 IF M(k,Z}=@ THEN FRINT" "; 
270 NEXT Z 

28@ PRINT 

39@ NEXT EF 

4@@ RETURN 

@@ CLS 

PRINT TAR(27) "CREATOR." 
PRINT TAB (26) "--------— " 
PRINT: PRINT:PRINT"This is the life q 


cnoch 
Bo) 


tJ 


an 
tal 
& 


rid. You must place" 

54®@ PRINT"cells in what you think will b 
e the" 

55@ PRINT"most advantageous pattern. Fre 
ss SPACE"; 

S55 PRINT“when you want a cell left int 
hat" 

540 PRINT"position. If you don’t want a 

cel] " 

562 PRINT"there, press any other key. Wh 


en you" 
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54644 PRINT"have finished, press *N* to st 
art." 

S7@ PRINT: PRINT 

S753 PRINT" 224567289" 

S88 FOR H=1 70 8 

S9@ PRINT H+is".....025 "SH+1 

60@ NEXT H 

405 PRINT 

619 PRINT" 224546789" 

62@ FOR K=2 TO 9 

62@ FOR Z=2 TO 9 

64@ PLOT 6,25, "X= Y= - 

645 PLOT 8,25, STR (kK) 

647 PLOT 18,25,STRS(7Z) 

65@ GET AS: IF AS="_" THEN M(K, Z}=1:FLOT 
K+1,Z+12, "0" 

4655 IF AS="N" THEN RETURN 


$60 IF ASZ>" " THEN M(K,Z)=8 
665 N(K,Z)=M(K,Z) 

67@ NEXT Z 

68@ NEXT EF 

70@@ RETURN 


37 


LASER WAR 


This action-packed game shows how a simple idea can be 
developed into a new program. | had originally intended to 
write a ‘space invader’ (yawn) program with continuously 
moving shields. On perfecting the shields and the laser base, | 
started to think about adding another shield further up the 
screen which would protect some non-moving objects. From 
there on, | Knew that the program would never become ‘space 
invaders’ but something a lot more original. 


The program places you in front of the Phoenix base, and your 
aim is to score as many points as possible by staying in the 
game for as long as you can manage. At the bottom of the 
screen (coloured magenta) is your laser base which you move 
left and right with the ‘lesser than’ and ‘greater than’ arrows. 
You must attempt to destroy, layer by layer, the multi- 
coloured defence shield at the top of the screen. Once you 
have blasted a hole through the wall, you will reap the benefit 
by sending another laser blast up. This extra shot will attack 
the heart of the Phoenix base and will earn you a 1,000 point 
bonus. However, that column will now become filled with anti- 
matter (‘X’s) and you will lose the game if you send up another 
blast to that column. Hitting the defence shield is not that 
easy, however, as there are the two shields at the top and 
bottom of the screen protecting the shield from any kind of 
onslaught. Hitting one of these shields takes a few points off 
your score. This is important to remember at the beginning of 
the game for if your score falls below zero, then you lose the 
game. 


The final thing to mention are the cruise vessels which skip 
along the screen. These must be destroyed every now and 
then because if one of the cruise vessels reaches the same 
level as the shields, your game is ended abruptly. Destroying a 
cruise vessel, apart from gaining you some points, will put a 
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new ship back in the top corner of the screen thus giving you 
all the extra time gained to continue blasting the shield away. 


The shields move at a good speed, especially for a BASIC 
program, and this is due to lines 110, 115, 1110 and 1120. 
Instead of moving the shield one space at a time, it is moved 
four spaces in one go. Moving a single character like that 
would not give any impression of smoothness, but moving 
eight characters in line does not lose any smoothness, speeds 
the game up no end and makes it more difficult for the player 
to judge when to send up a laser bolt. 


When the player fires a laser, the program goes to a separate 
routine which is actually bigger than the main loop. This loop, 
starting from line 1000 and continuing to line 1230, performs 
nearly all of the same functions as the main loop but with the 
addition of subroutines to display the missile and detect what 
it has hit. 


The row of ‘&’s in line 25 are the bricks which make up the 
defence shield. To cut down on some extra lines and therefore 
a slower game, the two shields use the same co-ordinates, the 
only difference being that 12 is taken off the vertical co- 
ordinate (F) for the top shield. Doing this saves variable 
memory, and more importantly cuts down on the number of 
screen detection lines needed in the ‘fire’ routine. These 
detection lines and the lines plotting characters onto the 
screen are the biggest culprits in slowing the program action 
down. 


The sound is provided by the routine from lines 600 to 650. 
Every time another sound is used, ie ZAP, PING, etc, the 
program goes back to this routine so that the sound can be 
switched back on. (Using one of the Oric’s pre-defined 
sounds also acts as a PLAY 0,0,0,0 command.) 


Before playing the game, check that the keyclick sound is off. 
This can be done either by holding down the CTRL key and 
pressing ‘F’ or by typing in direct mode, PRINT CHR$ (6). 


At the end of the game, the computer will give you your score 
and tell you the highest score. If you wish to have another 
game, then press the spacebar. 
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1M REMKAXKAKEKLASER WARKEKXKEEKE 

15 GOSUB Seea:HI=a 

17 CLOsS=4:PRINT" LASER WAR "“;CHRS (96 
ag." 2983 °"5 

19 PAFER @: INK 7250-6 

2@ PLOT @,24,CHRES(S> 


22 PLOT @, 25, "~--~---~-~----------------- 

ins sik sed ine it od ices ite is Sala des WE 

24 PLOT @,2,"-~-----------------~------- 
gece aw eve ews Soe " 

ZS FOR T=4 TO 7:PLOT CHR (TS) +" 82.88 

% Bee Be BeBe Br Be BoP, Pe 8 B2 8-8/8 8,2, BB, BB, BeBe 8B 

#, 2,9, 9.5 2 " 

26 NEXT T 


ZO A=18:B=24:X=2:Y=92 E=1:F=20 

25 GOSUR 4600 

B@ SLOT X.Y, "F@C":FLOT ALB, "#S%"=PLOT &, 
F."/\/N/N/N\ "SPLOT EVF-12,"% 

INININI™ 

9 XX=X2 Y¥=¥: AA=A: EE=E 

1@@ X=X+1:I1F X22B THEN Y=Y+1i:X=6 

11@ E=E+S:1IF £28 THEN S=-4 


115 If &<2 THEN S=4 
12@ OQ&=KEYs 

120 A=A+2K((OG=",")-(OS="_")) 
125 IF A>ZS THEN A=Z5 

127 IF A<i THEN A=1 

140 IF Q$="Q" THEN GOSUB 100@ 
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16@ IF Y=18 AND X>24 THEN Saea 
174 IF SC*@ THEN 2aee 
246 PLOT XX,YY," "SPLOT A&,8," 


345 PLOT EE.F," "SPLOT EE,F-12," 


250 SOTO Be 

500 REMEXKXKKKSOUNDEKKEKKKX 
6@5 PLOT C,Dp+1," " 

619 PLOT 72@,@,STR#(SC) 

615 SOUND 2, 10@@, © 

$20 PLAY 2,0,4, 500 

658 RETURN 

84a HT=a 

B@S PLOT XX,YY," "sxX=isY=9 
81@ FOR T=1 TO iS: INE i:WAIT 
920 INK Z:WAIT SsInNk 7eWAIT S:NEXT T 


t 


=. 
i 


820 PLOT 6, 24,CHRE (5) 
Base RETURN 

19@@ REMAKESFIREXKE 
1@@5 C=A+1:0=22 


110 PLOT XxX,YY," “SPLOT BE ws 


192@ PLOT EE,F-12." : 


1@ZO PLOT X.Y. "FOC": SLOT ALE "4$%"2 PLOT 


C.D, ei* 
1@Z2 PLOT E.Fe"/NSNSNIN" 

1@Z5 PLOT E,F-1B,"NSN\N4N" 
194@ XX=X:YY=¥:AA=A: DD=D: EE=E 


Ay 


1@5@ D=D-1:K=SCRN(C,D):IF K=29 THEN PLOT 
c,D," “: ZAP: SC=SC+29: GOSUB 

400: RETURN 

1@55 IF k=47 OR K=92 THEN PLAY 1,7.2, 250 
:SC=SC-22:PLOT Cb," "250s! 

BAGG: RETURN 

1@6@ IF k=135 OF K=125 OR K=49 THEN HT=1 
1@7@ IE HT=1 THEN SC=SC+17: EXPLODE: SLOT 

C,D+i," "“:GOSUB S@@:SOSUB 4 

GG: RETURN 
1972 IF “= 


t 8B THEN Sean 
1675 IF 


=9 
£4 THEN W-W+1:SC=SC+1@@e:FOR T= 


a 


4 70 7sPLOT C,T. "xX" NEXT T 
1@77 TF D<4 THEN PLOT 70,0, STRE (SCI: RETY 


199@ Q$=KEYS: A=A+(OS$=",")-( OES". ") 
1990 A=A+ (A=ZE)-(A=1) 

11@@ X=X+1i:IF X3F@ THEN VY=¥+1:X=e 

1110 E=E+S:1© E229 THEN S=-4 

1126 IF E<? THEN S=4 

1135 IF B=2@ THEN B=?! 

113@ IF Y=19 AND X24 THEN Seae 

12@@ PLOT C,DD," ":PLOT AALB," 9 "ZPLOT 
(XY, 5. 

1210 FLOT EE,F," ":PLOT EE,F-12," 
122@ SOTO 
SQA REMAKAEKKEATLURE RK EYEE 


bo 
"1 


AZO 
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Saze 
Saz0 
INT 

Sass 
S040 
Sasa 


SA68 


Sa90 
FOO 
PA1e 
Pare 
20re 
9a4a 
9a5a 
9a6a 
9070 
2080 


29090 


PLAY 2,8,8,8 


FOR T=1 TO 44:FRINTSNEXT T 
IF SC<@ THEN SC=@ 


PRINT" THE GAME IS OVER":PR 
PRINT" YOU SCORED “:SC 
FOR T=1 TO 12:PRINT: WAIT 1@:NEXT T 


TF SC3HI THEN HI=SC 

PRINT" HIGH SCORE Wet 
FOF T=1 TO S:FPRINTINEXT T 

WAIT 1@@:GET AS:IF Ag=" " THEN GOTO 


BQTO Seee 
PEMEKKKXX UDG? s KEKE 

FOR F=44240 TO 46291 

READ N 

POKE &.N 

NEXT © 

DATA @,9,0,7,15, 21,62, 62 
DATA 12,12, 20, 63,62, 62,462, 6% 
DATA @,@,@,55,6@,452,62, 62 
DATA 61,61,61,61,55.55.55,55 
RETURN 


= 
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HIGHER OR LOWER? 


This is a fairly straightforward card game in which you must 
bet a proportion of your cash on the turn of a card. You are 
given the simple choice of deciding whether the next card is 
higher or lower. However, if the next card is equal to the 
previous card, then you lose. If the card is as you predicted 
then you can decide to continue that round as the amount of 
money you receive for every extra go increases quite 
considerably. When you quit a round (providing you have not 
lost), the money is added onto your previous winnings and 
you continue. There is a minimum bet of £5 (this is a high- 
class establishment!) and all aces count as high. 


Have a good time and gamble away, but remember that the 
casino closes early! 


Much of the program is concerned with printing prompts and 
messages onto the screen. Lines 100 and 224 generate the 
random number which is converted into the card. In this 
game, the suit of the card is not important so it is not 
calculated. Lines 110 to 140 and lines 230 to 236 convert the 
higher codes into Jack, Queen, King and Ace. The routine 
from line 800 onwards comes into operation when it’s closing 
time at the casino. 


1@ REMXX*k*HIGHER OR LOWER?XXKK 

20 REM***xxYOUR OWN TITLE DISPLAY TO GO 
IN HERE X*K#* 

7@ PAPER 7:INkK 4 

753 P=isD=2 

B® M=20:6=6 

19@ R=INTCRND(1)*13)+2sC$=" "4+STRS(R) 
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11@ IF R=11 THEN C=" JACK" 
12@ IF R=12 THEN C#=" QUEEN" 
12@ IF R=12 THEN C#=" KING" 
14@ IF R=14 THEN C$="N ACE" 
® CLS:PRINT:PRINT:PRINT TAR (273 "“HIGH/L 


155 PRINT TAB(27) "------------ " 

156 P=P+1 

S57 PRINT:PRINT"YOU NOW HAVE _"iM:PRINT 
158 IF P=10 THEN GOSUBR Bae 

16@ PRINT:PRINT"PRESS A KEY TO DEAL CARD 
“:GET AS:WAIT S@:PRINT: PRIN 


17@ B=a 

200 PRINT"CARD IS A"; CS: PRINT: PRINT 

202 IF G>® THEN 21a 

2935 PRINT: PRINT 

286 INPUT"BET (MIN —2) "3B: PRINT 

2O@7 IF BS OR BM THEN FRINT"THINE AGAIN 
BUDDY! ":SFRINT: GOTO 205 

208 H=B 

21@ PRINT: PRINT"HIGHER OR LOWER? (CH/L>" 

220 GET HS: PRINT: PRINT 

224 N=INTCRND (1) *1-2)42 

225 PRINT: PRINT"PRESS A KEY TO DEAL NEXT 
CARD": GET AS 

227 DS=" "+STRS(N) 

228 IF N=12 THEN Dé=" QUEEN" 
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Sze IF N=12= THEN D$=" KING" 
224 IF N=14 THEN D¢="N ACE" 
2z6 IF N=ii THEN Dé=" JACK" 


228 PRINT:PRINT"NEXT CARD IS A"iDS 
240 IF H$="H" AND N=R THEN 50@ 


250 IF H$="1" AND RON THEN 5a@@ 
27 PRINT: PRINT: PRINT"THEREFORE YOU LOSE 


280 SOUND 1.15@@,14:WAIT S@:PLAY ©,6,0.0 
28S M=M—-H 

298 WAIT i@@ 

ZH@ TF M<S THEN PAPER @:CLS:PLOT 12,12," 
YOU ARE BROKE!": ZAP: ZAP: END 


205 G=@ 


id 
roe 


tn 
rN 
> 


GOTO 1@8 

REMKXEVICTORY KX 

PRINT:PRINT"YOU WIN!" 

SOUND 1,100.7 

Z@ WAIT S@:PLAY 0,@,0,.0 

S4@ R=N:G=G+i:IF G=5S THEN G=@:B=Bk=:GOTO 
ae 

SS@ B=Bk2 

56@ PRINT"DO YOU WISH TO QUIT THIS ROUND 
(Y/N) "GET AS 

57@ IF A$="Y" THEN B=INT (B/D) :M=M+B:6=0: 

GOTO 1@0 

58@ PRINT: PRINT"BRAVE SOUL" 

S85 WAIT 1e0 


un oun 
ee 
SS 


an 


th 
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59@ GOTO 2e@2 

£00 PRINT: PRINT"YOU COMPLETED A ROUND, W 
ELL DONE!" 

61@ PRINTSPRINT' YOU ARE NOW —"3B-H;" BET 
TER OFF" 

42@ PRINT"SS A RESULT OF YOUR DARING." 
£20 M=M+B 

440 WAIT 2@0:GOTC 1a@ 

BOO WAIT 1@6:CLS 

21@ FOR T=1 TO 1@:PRINT: NEXT T 

820 PRINT" IT IS CLOSING TIME AT THE CAS 
INO SIR" 

AIS PRINT 

B82@ PRINT"BUT IF YQU ARE INTERESTED I EN 


OW OF A " 
B48 PRINT"GAME DOWNTOWN WHICH IS ALWAYS 


OPEN..."=zWAIT 708 

85@ PRINT:FPRINT"HOWEVER. IT DOES COST _" 
sINTCM/2)3" TO GET IN" 

86@ PRINTSPRINT"AND THE ODDS ARE SLIGHTL 
Y HIGHER": D=2 

97@ PRINT: PRINT" INTERESTED? (Y/N3" 

880 INPUT ASSIF AS="¥" THEN 91@ 

890 PRINT: PRINT"OK. YOU LEAVE WITH _"3sM 
90@ PRINT:PRINT"WELL DONE! ":END 

91@ PRINT: PRINT"I’LL TAKE YOU THERE...": 
WAIT 4@@:M=M-(M/3):GOTO 1028 
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PRAIRIE FARMER 


You're out in the mid-west area of the USA in this simulation 
game. The program contains all the prompts you need to play 
it, so | will not go into any great depth about the game action. 
As with most simulation programs, the best way to learn how 
to play properly is to run them again and again. 


You must manage your farm for 10 years by planting acres of 
cotton, wheat and maize. You must decide how much to pay 
your workforce, how much of your land to plant and what to 
plant it with. 


| will give you just a couple of hints: be careful how you treat 
the workforce—if you pay them too little they will desert your 
farm and you will have no one to help you plant the fields. 
Also, try to work out which is the most profitable crop and 
concentrate on that, but it is wise not to devote all your 
resources to just one crop as it could be a bad year for that 
crop and you will be left with nothing. 


As | have said before, practice makes perfect—so have a few 
attempts before you can expect to succeed. 


If you wish to change the length of the game, then change the 
numbers in lines 110 and 760 to the number of years you wish 
to simulate. 

10 REMXKEXEXPRAIRIE FARMERKEEXKE 

2@ YR=1 

4@ MO=INT (CRND (1) *1400@) +7900 

5S@ LA=INT (RND (1) *1800)+10@ 

6@ AC=INT (RND (1) ¥200)+200 

7@ CS=INT (RND(1)%*5)+8:CX=CS 
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8@ BA=8: WH=6: CO=@ 

90 GOSUB 17@ 

1@@ GOSUB 29@ 

11@ IF YR=10 THEN 75e@ 

126 IF MO<1 THEN 790 

12@ IF LA<1 THEN 82@ 

144 YR=YR+1 

15@ CS=CS+INT(12.5%*C5/100) 

146@ GOTO 8@ 

17@ REMEXKEEXKUPDATE INFORMATION &¥ XX 
18@ GOSUB 878 

199 PRINT"YOU HAVE $";MO;" IN YEAR "sYR 
20@ GOSUB 88a 


21 PRINT"YOU ARE EMPLOYING ";LA 


220 PRINT"LABOURERS, WORKING FOR" 

228 PRINT ACs" ACRES OF LAND" 

2406 GOSUB 88@ 

20@ PRINT"CROPS:- “:PRINT TAB(25) COs" M 
AIZE" 

268 PRINT TAB(25) BAs" COTTON" 

278 PRINT TAB(25) WH:" WHEAT" 

288 RETURN 

290 PRINT"IT WILL BE $"3;CS;" IN GENERAL 
CosTs"™ 

208 PRINT"TO WORK EACH ACRE....AND SO TH 
e" 

319 PRINT"THE MAXIMUM NUMBER OF ACRES YO 
U CAN" 
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320 PRINT"WORK THIS YEAR IS "; 
240 MX=INT(MO/CS):1F MX>AC THEN MX=AC 


35@ PRINT MX 
262 PRINT"HOW MUCH LAND DO YOU WANT TO H 


ARVEST" 
370 INPUT L 

280 IF L>MX THEN 27a 

2909 MO=MO-L*cS 

400 GOSUB 170 

41@ PRINT:PRINT"HOW MUCH WILL YOU PAY EA 
CH WORKER" 

420 INPUT W 

43@ IF WkLA>MO THEN 420 

44@ MO=MO-LAXxW 

45@ GOSUB 179 

460 P=10 

47@ PRINT"WHAT PROPORTION (OUT OF 10) D 
0” 

48 PRINT"WISH TO CONCENTRATE ON MAIZE" 
49@ INPUT CP 

5@@ IF CP>P THEN 490 

51@ P=P-CP 

520 PRINT:PRINT"OF THE REMAINING "SPs" 0 
UT OF 10," 

5Z@ PRINT"HOW MUCH WHEAT WILL YOU PLANT? 
54@ INPUT WP 

550 IF WP>P THEN 54@ 
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368 
578 
58a 
298 


5008 
610 


520 
420 


540 


658 


P=P-WPF 

GOSUB 8768 

PRINT"STAND BY FOR A YEAR..." 
WAIT 480 

BA=INT (PXL¥LAKWKZ/ 190000) 


CO=INT (CPXLXLAXWEHS. 7/17000) 


WH=INT (WPI XLAXWH1. 4/9298) 
T=BA+TO+WH 


GOSUB 178 


PRINT: PRINT T;" TONS WERE HARVESTED" 


56@ RT=INT ((.5+8. 7*BA+5S. 944C00+2. 2kWH) K(C 
S-CX+1)) 

67@ IF BA=@ AND CO=@ AND WH=@ THEN RT=@ 
688 WAIT Za0 

69@ PRINT: PRINT"AND YOUR TOTAL RETURN" 
7@@ PRINT"WAS $"3RT 

71@ MO=MO+RT 

72@ LA=INT(LA-LA/ (W+. 017) 

72@ WAIT 25 

74® RETURN 

758 GOSUB 878 


740 


PRINT"YOU HAVE SURVIVED FOR 1@ YEARS 


PRINT:PRINT TAB(25) "CONGRATILATIONS ! 


END 
GOSUB 87@ 
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806 PRINT"BEING A PRAIRIE FARMER IS AN EX 
PENSIVE BUSINESS...YOU"°RE B 

ROKE!" 

816 END 

820 GOSUB 878 

82a PRINT"YOU HAVE NO WORKERS AND HAVE B 
EEN" 

84@ PRINT"FORCED TO SELL YOUR FARM AND G 
0 BACK EAST." 

8460 END 

874 CLS 

B88@ PRINT: PRINT 

896 RETURN 
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ART NOUVEAUX 


This is your chance to become a famous artist with this handy 
program. The instructions are contained within the program 
and it’s just a matter of typing it in and paint away! 


Who knows, your masterpiece may be sold to the Tate Gallery 
—stranger things have happened, especially there! 


1@ REM*&X*EXART NOUVEAUXKEKEK 
26 GOSUB 9800 

30 A=19:B=12 

6@ CLS 

7@® PRINT: PRINT: PRINT 

8® FRINT TAB(24) "ART NOUVEAUX" 
90 PRINT TAB(24) "----—--—-----— - 


10@@ PRINT: PRINT” ARROW KEYS TO MOVE 
11@ PRINT:PRINT" 7<? FOR BLACK" 
1260 PRINT: PRINT" *>" FOR ERASE" 
130 PRINT: PRINT" 7E* TO DISFLAY" 


1235 PRINT: PRINT"AFTER PRESSING *E’, ENTE 
R COLOR CODE" 

140 PRINT:PRINT: PRINT 

15@ PRINT: PRINT" PRESS ANY KEY TO S 
TART" 

16@ GET R& 
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51a 
528 
52a 
Bae 
8014 
Boze 


82008 
FOQ0 


9010 
9028 
9036 
9040 
9050 
9200 


CLS 
PLOT A,B.AS 

Q$=KEYS 

A=A+ (Q$=CHRS (8) )— (Q$=CHRS (9) ) 
B=B+ (Q$=CHRS (11) )—(Q$=CHR$ (10) ) 
IF A<1 THEN A=1 

IF A>Z8 THEN A=28 

IF B¢1 THEN B=1 

IF B>25 THEN B=25 

IF Q$="." THEN AS="4#" 


IF Q$="." THEN AS=" " 
IF Q$="E" THEN 500 
GOTO 2e@ 

GET R$: C=VAL (RS) 


INK @: WAIT 5S 

INK C:WAIT 5 
GOTO Sie 

CLS:FAPER 2:INK © 

A=19: B=7 

N=@ 

RETURN 

REMR&k*kkk*X UDG? s *KKKEKKK 
FOR FP=4426@ TO 46267 

READ N 

FOKE P.N 

NEXT P 

DATA 62,63, 62, 62,623, 62,62, 62 
RETURN 
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SQUASH 


A versatile program this, which can be converted into a whole 
host of other games. Squash is a pretty obvious game to 
understand. You simply have to keep the ball in play for as 
long as possible by deflecting the ball off your bat. The ball 
moves quite fast, so the game is quite a good test of your 
manual dexterity. You use the ‘Z’ and‘M’ keys to control your 
bat. 


At the beginning of the program, you will be asked which level 
you require, either level one or two. Level one is harder as the 
bat moves slower, so | suggest that you start off with level two 
first. 


The possibilities for this program are quite varied. With some 
extra work, it could be converted into a‘Breakout’ game where 
you must remove the bricks in the wall by deflecting the ball 
off your bat and into the wall. You can quite easily vary the 
program to include two bats (one for each player) or two balls, 
or amoving target to try to aim the ball at; as you can see, there 
are many options open to you. 


A good way to improve your programming is to take a 
programme already written and try to improve/modify it. Why 
not have a try with this game and add one of the features that | 
have mentioned or indeed, incorporate a totally new idea. Use 
your imagination to the full—that is the very essence of games 
programming. 


The ‘ball to bat detection’ routine is at lines 150 and 155 with 
the score increased by 17, the vertical direction of the ball 
changed and a PING sounded. There is asound reason why | 
have increased the score by that figure instead of, say, one 
every time. Consider if you have been playing just one game 
for ten minutes in which you have performed well breaking 
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your previous high score and finally you received a score of 
41. Using my scoring system you would have 697 which 
sounds much more like a high score. Choosing an odd 
number such as ‘13’ or ‘17’ means that the score, when it 
changes, looks a little more interesting than say ‘2’...‘4’...‘6’ 
... 8’, etc. This is just a small feature which is worth including 
in your own programs. 


1@ REMKKXEE KSQUASHE RAKE KX 
15 CLS:GO0SUE 9eeae 
17 FLOT 14,6, "SQUASH! "SPLOT 14,7, "=ss==== 


2@ FLOT 10,1@,"KNOCK THE BALL":WAIT 200 
25 PLOT 12,12, "OFF THE WALL":WAIT 200 

27 PLOT 10,16,"USE Z FOR LEFT":PLOT 10,1 
8."&% M FOR RIGHT" 

28 FLOT 9,22,"WHICH LEVEL 1 OR 2" 

29 INPUT LVL 

48 PLOT 12,24,"PRESS A KEY":GET R& 

5@ GOSUE 1e@0e 

6@ PLOT V,24," " 

7@ AS=KEYS 

80 IF AS="" THEN 110 

90 IF AS="Z" AND V2@ THEN V=V-LVL 

10@ IF AS="M" AND VSZ8 THEN V=V+LVL 

11@ PLOT V, 24, CHRS (127) +CHRS (127) 

12@ PLOT X,Y," " 

12@ Y=Y+D:IF Y>22 OR Y<2 THEN SOUND 1,20 
@,8:WAIT 15:D=-DzPLAY @,2,@ 

20 

14@ X=X+C:IF X>Z6 OR X<2 THEN SOUND 1,4@ 
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@,8: 


348 


N 


WAIT 15:C=-CrPLAY @,4,0 


PLOT X.Y, "0" 
IF X=V AND Y=22 THEN SC=SC+17:D=—-D:F 


IF X=V+1 AND Y=22 THEN SC=SC+17:D=—-D 
& 

IF Y=24 THEN GOSUB 500 

PLOT18, 26, CHRE(7)+"SCOREs "+STRS (SO) 
GOTO 68 

-=L-1:1F L=@® THEN CLS:PLOT 8,18, "END 
GAME: YOU SCORED "+STRS 


IF L=@® THEN PRINT CHRS (17); CHRE(6)5E 


WAIT S@:PLOT 1,26,"LIVES :- "4+STRS(L 


FLOT ©, 246, CHRS(7) 


PLOT 1,24," 


i WAIT 250 


X=INT(RND (1) *25)4+22Y=2 
PLOT 1,26," “ 
RETURN 


10@0 PRINT CHRS(4) 3 CHRS (17) 

191@ V=15:SC=0:C=1:D=1:L=2 

1@26 CLS:FAPER 4: INK 2 

193Q PLOT ©, ©, "HEE HEH EE EHAH EE HEEB 
4b EEE ESE EE EAE EEE EH 
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104@ FOR Z=1 TO 24:FLOT @,Z,"#":PLOT 28, 
Z : "He" 

195@ NEXT Z 

1960 X=INT(RND(1)*35) +2: Y=2 


1100 RETURN 

9080 FOR P=4626@ TO 446347 

90@1® READ N:POKE F.N:NEXT P 

9@2@ DATA 62,63, 6%, 6%,62,463,62,63 
9020 RETURN 
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ROM BUG 


You have a nasty ‘bug’ in your 6502 ROM. The only way to rid 
yourself of this menace is to POKE the address in which it is 
hiding. Your poor, damaged computer can only give an 
approximate indication of where the evil ‘bug’ lies. You have 
six chances to guess its position and the computer will 
comment on your guess telling you whether to aim higher or 
lower. 


The program is based around the Hi-Res display created in 
lines 40 to 80. The CHAR command is used to put the numbers 
and the Rom Bug, normally TEXT characters, onto the Hi-Res 
screen. If when writing your own programs you need to use 
CHAR and you have more than, say, four or five characters to 
display on-screen, then it would be wise to use a routine 
something like the one below. 


10 REMAK¥*kX*EXCHAR ROUTINE XEXEKEKE 

20 HIRES 

360 CURSET 10,10, 

4@ FOR T=2 TO 12 

5S@ READ N 

6@ CHAR N,@,1 

7® CURSET 10*T,10,@ 

80 NEXT T 

9@ DATA 72,69, 76,5 7by 794 S25 BA, 72469, 82,69 
Type in the above routine to see what it displays. The loop is 
simply reading an ASCII code into N then putting the 


character on the screen. Finally, the cursor is moved along 10 
pixels ready for the next character. 
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Getting back to the main program, lines 380 to 410 produce 
the Rom Bug’s invasion. 
1@ REM*¥KX*ROM BUGEKXEKS 


@® T=6:GOSUR 9@@e@: INK @ 

5 PAPER 2 

@ R=INTC(RND (12 *100)+1 

HIRES: CURSET 80,794,1 

S@ DRAW 100@,@,1: DRAW ®,5@,1:DRAW -1008,8, 
1: DRAW @,-Sa.1 

4@ CURSET 85,.75,@:CHAR 25.9,1 

76 CURSET 115,9@,.@:CHAR 354,0,1:CURSET 12 
5,970,@:CHAR SZ,@.1 

86 CURSET 125,90,@:CHAR 48,0,1:CURSET 14 
3,90,@:CHAR 5@,@,1 

268 PRINT"At what address is the FRom Bug 


rn ee 


fp 
& 


uf 


hiding" 
21% INPUT"HINT: Between 1 and 19@":N 
215 SOUND 1,260.7: WAIT S@:PLAY 0,9,0.0 
22@ IF N>R THEN PRINT" *kXxxkLOWERXEXKK" 
220 IF N¢R THEN PRINT" XX kXHIGHERKEKKE" 
240 IF N=R THEN 28a 
20@ T=T+1: IF TS THEN 258 
268 GOTO 206 
288 TEXT:CLS 
2978 FOR A=1 TO 2:FOR B=i TO 7 
30@ PLOT 14@,12,"You did it! You Poked" 
216 PLOT 140,14, "the Rom Bug’s address" 
320 PAPER B: ZAP 
325 WAIT S@: NEXT & 
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320 NEXT A: END 

25@ TEXT:CLS:FRINT: PRINT: FRINT 

=46@ PRINT"He was hiding at :"sR 

378 PRINTS PRINT"and will now take over v 
our machine." 

275 WAIT 4@@:CLS 

=8@ FOR A=1 TO 268 

=9@ IF S/L@=INTCA/1@) THEN SHOOT 

4o@ PLOT INT CAND (1) *28)4+1, INTCRND (12425) 
are 

4@= SLOT INTCRND (12k 728241, INTCRND (1) "25) 
sae 

4@P IF BND(t)>.9 THEN PAPER INTCRND(1)*7 
y+1 
41@ NEXT & 

42@ CLEsFLOT 19,12, "#":sEND 
Fae REMAKXKUDE KKK 

[@1@ FOR A=46740@ TD 442467 

9@20 READ N 

9@70@ PORE 4,N 


9@4@ NEXT A 


905@ DATA 51,51,8,12,12,04, 22,260 


9100 RETURN 
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THE FORBIDDEN CAVES 


Dare you enter the Forbidden Caves? You do? You must be 
very brave or very foolhardy! 


The Forbidden Caves is a dark system, deep underground in 
which a fortune in gold can be found if you are brave enough 
to hunt for it. However, you must be careful not to fall into 
pools of quicksand, trip down deep pot-holes or bump into 
one of the strange creatures which live in the caves. 


You have a random amount of time to wander around the 
caves and gain as much wealth as possible. The game ends 
when your time runs out, or sooner if you don’t avoid the 
aforementioned hazards. 


You begin your search in cave 55. The computer will then ask 
you for the direction you wish to move in. Enter ‘N’ for north, 
‘S’ for south and so on. Occasionally, the computer will give 
you a look at the map of the caves. It will only be shown for a 
very short time, so concentrate on it. Your position is marked 
as an‘H’. | won’t tell you what the other symbols stand for as 
you can work them out by playing the game. 


You can also fire arrows. To do this enter ‘F’ and then the 
direction which you want the arrow to be fired in. If you killa 
monster, you receive some extra game time to continue 
exploring. 


The graphic display starts from line 950, while the lines 260 to 


398 handle your direction input and decide what you are 
sharing your position with. 
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1®@ REM**XX*THE FORBIDDEN CAVESKExXx 
20 DIM FCB) 

4 GT=INTCRND(1)411)+2@ 

45 GOSUB 95@: TEXT 

5® CLS:PAFER INT(RND(1)*7)+1: INK © 


60 PRINT:FRINT" THE": PRINT" FORBIDDEN" 


PRINT 
62 PRINT" K#KXK ¥XKEK * x KHKKK 
**xKKKK" 


64 PRINT" x x x x x 
x" 

66 PRINT" KXKKE x x KKK 
KXKEK" 

&7 PRINT" x x x x x 

x" 

66 PRINT" kK*Xkek x * x KEKKK 

KKKKK" 


76 DIM A(19@) :H=0: Q=@: L=@: G=0: AR=6 


72 FPRINTSPRINT:FRINT"FRESS *S* IF YOU DA 


RE TO ENTER" 

74 GET AS: IF AS<>"S" THEN 74 
76 PAPER INT (RND(1)*7)41 

8® FOR R=1i TO 108 

BS A(B)=46 

96 IF B<i2 OR B>9@ OR 1@xINT(B/1@)=B OR 
1OXINT (B/1@)=B-1 THEN ACB)= 
166 

190 NEXT 
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11@ FOR B=1 TO S:RESTORE:FOR D=1 TO 5 
12@ Z=INTCRND(1)%76)4+12:21F A(Z?=1466 THEN 


12@ READ C:A(Z)=C 
14@ NEXT:NEXT 

15@ DATA 166,218.77,91,26 

14@ FOR B=1 TO 9:READ F(B):NEXT:DATA -ii 
o-10,-9.~1,1,9, 10,11 

17@ E=55 

18@ ACE)=72 

19@ CLS:GOSUB eBe 

20@ Q=INT(RND(1)*7) 

21@ IF Q=@ AND E<>55 THEN GOSUB 8e8@ 

22@ PRINTIPRINT:PRINT"CAVE "sE 

22@ IF 62 THEN PRINT:PRINT TAB(27) G:"G 

ALD" 

240 GOSUB 41¢ 

250 GOSUR @8@:PRINT: PRINT 

26@ INFUT"WHICH DIRECTION ";Z$:U=6 

27@ IF Z$="N" AND A(E-1@)=146 THEN U=1 

272 IF Z$="S" AND A(E-10)=1466 THEN U=t 

276 IF Z$="E" AND AC(E+1)=166 THEN U=1 

29@ IF Z$="W" AND A(E-1)=1646 THEN PRINT: 

PRINT TAB (24)"BLOCKED CAVE" 

:G0TO 25e 

29@ ACE)=46:1F Z$="N" THEN E=E- 

295 IF E>1@®@ OR E<1ii THEN 1500 

Z@@ IF Z$="S" THEN E=E+1@ 
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21@ IF Z$="E" THEN E=E+t 

32@ IF Z$="W" THEN E=E-1 

22@ IF Z$="F" THEN GOSUR 72e 

235 IF A(E}=146 THEN 1300 

24@ IF A(E)=2i8 THEN GOSUB 400 

35@ IF A(E)}=77 THEN GOSUB 44@ 

260 IF A(E)=B1 THEN GOSUE Sie 

27@ IF A(E)=Z46 THEN GOSUB 570 

Z8@ H=H+1:1F H2GT THEN aso 

=9a@ GOTO zeae 

40@ PRINT:PRINT"MAGIC!!" 

41@ A(E)=46 

420 E=INT(RND(1)*74)+12:1F A(E}=166 THEN 
azo 

42@ RETURN 

44@ CLS:SQUND 1,15@,7:WAIT S@:PLAY 0,0, 
=) 

442 PRINT: PRINT: PRINT 

445 PRINT TAR (25)" MONSTER HERE":FRINT T 

AB(25)" ------------ ' 

45@ WAIT 4@0 

46@ IF RND(1)<.2 THEN PRINT"IT IS RUNNIN 


fS AWAY": RETURN 
470 FRINT'IT HAS SEEN YOU...." 


486 WAIT 40a 

49@ IF RND(1)>.85 THEN FRINT TAB(2@) "AND 
FLEES": WAIT 2@o: RETURN 

495 PRINT TABCE2); 


65 


Sae 


FRINT"AND EATS YOU! ":sSOUND 1,15008,7: 


WAIT 6@:PLAY @,0,0,0:0=9:CL 
S:GOTO B5e 


S18 
Sis 
317 


CLS:FAPER i: INK 7 
FOR J=1 TO 24 STEF 2 
PRINT TAB((13)4+(J3/2)) “HORRORS. ..QUIC 


KSAND" 


SOUND 1,20+3*20,8 


| WAIT S*J=2NEXT J 


SOUND 1,1@@@,98:WAIT 4@:PLAY @,0,@,0 


§ WAIT 2@@:CLS:FAPER 2:INK © 


qQ=9 
GOTO g8se 

CLS:FOR J=4 TO 24 

PRINT TAB(J+12) “WEALTH!!! " 

SOUND 2,420@-154J,7:WAIT Z@:NEXT J 
FLAY ©,0,0,@:WAIT 100 

K=INT (RND (1) *10@)+100 
PRINT:PRINT"YOU HAVE FOUND GOLD!!!" 
PRINT:PRINT"IT IS WORTH _"“sks"!!'":6G 


SOUND 1,8@,8:WAIT 4@:FLAY 2,0,0.2 
WAIT 2@@:CLS:FRINT:GOSUB 880: RETURN 
Y=1 

L=A(E+P(¥)) 

IF L<>46 THEN 668 

IF Y<8 THEN Y=Y+1:GOTO 420 

IF L=46 THEN RETURN 
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46@ PRINT: PRINT: PRINT "NEARBY IS...."3 
67@ IF L=166 THEN PRINT"NO FATH" 

4680 IF L=218 THEN PRINT"MAGIC" 

69@ IF L=77 THEN FRINT“MONSTER" 

70@ IF L=81 THEN PRINT" QUICKSAND" 

71@ IF L=26 THEN FRINT"GOLD" 

72@ WAIT 25@: RETURN 

72Q AR=AR-1:1F AR=@ THEN PRINT: PRINT"NO 
ARROWS LEFT":RETURN 

74@ PRINT: PRINT TAB(2@) ARs" ARROWS LEFT 
":SS=0 

75@ PRINT: PRINT: INFUT"WHICH DIRECTION "; 
S$:CLS 

760 IF S$="N" AND A(E-1@)=77 THEN SS=1:Y 
T=E-10 

77@ IF S$="S" AND A(E+1@)=77 THEN SS=1:Y 
T=E+10 

78@ IF S$="E" AND A(E+1)=77 THEN SS=1:YT 
=E+1 

785 IF S$="W" AND A(E-1)=77 THEN SS=1:YT 
=E-1 

79@ IF SS=@ THEN PRINT"NOTHING THERE": GO 
TO 840 

800 PRINT OOO A HIT Jodooooo 

81@ WAIT 15@:IF RND(1)>.=% THEN 83@ 

827@ PRINT: PRINT"****MONSTER IS DEADKEKE" 
2 A(YT) =46:G=G+INT(RND(1) #10 

@):GOTO 84e 
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82@ PRINT"THE MONSTER IS WOUNDED" 
24@ WAIT 20®:RETURN 

85@ WAIT 1@@:IF Q=9 THEN 870 

86@ CLS:PAPER @:INK 2:SOUND 1,1500,8:WAI 
T SO:PLAY @,@,0,9 

865 PRINT"YOUR TORCH HAS BURNT OUT":PRIN 
= 

866 PRINT“IN DARKNESS, YOUR CHANCE OF SU 
RVIVAL WAS VERY SMALL" 

947 PRINT:PRINT TAB(Z@); 

868 PRINT:PRINT"R"::SOUND 1,1000,8:WAIT 

SO:PRINT"I"::SQUND 1,1500,8 

:WAIT 40 

B49 PRINT"P":SOUND 1,2@@@,1@:WAIT 8O:FLA 
Y @,9,8,8 
87@ WAIT 12@:PRINT:FRINT"YOU SURVIVED FO 


Ro “sH:" HOURS AND FOUND" 
874 PRINT" _ "36;3"OF GOLD":SOUND 1,8@0,7:W 


AIT S@:FLAY 8,9,4,@ 

876 END 

880 ACE)=72:1F RND(1)<.66 THEN 940 
890 FOR J=1 TO 106 

900 PRINT CHR (ACI)) 5 

91@ IF 1@kINT(J/1@3=3J THEN FRINT 
92@ NEXT: IF Q=9 THEN END 

928 WAIT INT (RND(1)*100)+20 

925 CLS 

94@ RETURN 
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95@ REMK*XkGRAFHIC DISFLAYE*x#x 
940 HIRES: CURSET 120,10@.0:FATTERN 178 
97@ FOR K=1 TO 95 
98 CIRCLE K,1 
990 H=H+1:I1F INT(1@kH)/1@=H THEN INK INT 
(RND(1)*7) 44 
19@0 NEXT K 
1@2@ SOUND 1,15@,8:WAIT S@sFLAY @,@,a,@ 
1@3@ WAIT 100 
1940 RETURN 
12@@ WAIT 15@:CLS:FPAPER @: INK 3 
121 PRINT:PRINT"YOU FOOLISHLY ATTEMPTED 
TO WALK WHERE THERE WAS NO 
FATH..." 
1220 WAIT 10@:PRINT:PRINT TAB(25) "YOU BL 
EW IT!" 
122 PRINTsFPRINT: PRINT 
1240 WAIT 15@:GOTO 867 
15@0 REMAKEXX*FOT HOLESH#kE* 
1510 WAIT 100:PRINT: PRINT: PRINT 
152@ PRINT" YOU FELL INTO A FOT HOLE, THE 
RE IS NO CHANCE OF RESCUE.. 


1536 PRINT: PRINTSPRINT: PRINT 
154@ GOTO 868 
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LOLLIPOP NIM 


After the rigours of The Forbidden Caves, here is a friendly, 
relaxing game. You and the computer are dividing between 
you a stock of red lollipops. You each take as many as you like 
every turn, providing that the number you take is within the 
displayed maximum. Your aim is to leave the computer with 
the last one—for whoever takes the final sweet must pay for 
the lot! 


This game, a version of the famous ‘Matchsticks’ puzzle is 
enlivened by the graphic lollies which appear. The computer’s 
thinking is performed in line 18@. It is quite possible to 
produce a NIM program which is unbeatable but naturally the 
program just becomes a demonstration and ceases to be a 
game. To make the game, any game, entertaining there 
should always be some random element so that the game is 
not exactly the same every time you play. In Lollipop Nim, 
there are three such random elements: firstly, in line 60, a 
random number of lollipops are produced; a random number, 
being the maximum number of lollipops which can be taken, is 
produced in line 80; and finally, the computer, when con- 
sidering how many to take, has its invincibility destroyed by a 
random element in line 180. 


The use of the random element, produced by the pseudo- 
random RND command, is a popular and almost vital part of 
BASIC games programming, adding life and interest into what 
might otherwise be a drab program. 


10 REM**XxXLOLLIPOP NIM*kxx 
15 GOSUE 900 

2<® CLSsPAPER 7:INK @ 

20 J=20 

Se E=@ 
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60 Z=INT(CRND (1) *12794+15 

7® IF 2k(Z/2)=Z THEN Z=Z+1 

BO H=2+ INT CRND (1) *2)+1 

90 PRINT:FRINT TAB(24)"LOLLIPOP NIM":F 


RINT TAB(24) "------------ "PR 
INT: PRINT 

93 PRINT: PRINT"MAXIMUM YOU CAN TAKE IS 
"sH 


95 PRINT: PRINT 

10@ IF E>® THEN PRINT"YOU TOOK ":E;TAB 
(28)3"I TOOK "sQ@ 

105 WAIT 150 

11@ GOSUB 400 

12@ PRINT:PRINT"HOW MANY WILL YOU TAKE 
13@ INPUT E 

14@ IF E>H OR E<1 THEN PRINT:PRINT TAE 
(26) "IMBECILE'":PRINT: GOTO 12 

@ 

15@ CLS 

16@ Z=Z-E 

17@ IF Z<1 THEN 250 

18@ Q=Z-1-INT((Z-1) / (H+1)) & CHL) +INT (( 
RND (1) *4)+1)-1 

19@ IF @>Z OR G=@ OR G>H THEN 180 

200 Z=Z-O 

21@ IF Z<i THEN 220 

22@ GOTO 9e 

22@ FOR T=1 TO 20 

232 PRINT"*k**kI TOOK ";G:", SO YOU WI 
Net sess 

234 MUSIC 1,4, INT(T/2)+1,8 

236 WAIT 4@:NEXT T 

238 WAIT S@:PLAY 0,@,@,@:G0TO 500 

25@ PLOT 1,12, ">>>>>>>>>>>331 WIN'< <<< 
KKK KELLER E 

255 MUSIC 1,@,1,8:WAIT 12@:PLAY @,@,2, 
@ 

26@ GOTO 5ee 

40@ REMKXXXGRAPHICSEX KE 

405 J=20 

41@ PRINT: PRINT 
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420 
425 
420 
422 
) 

425 
440 
445 


FOR L=1 TO Z 

K=2*"L:1IF K>38 THEN K=K-27:J=22 
PLOT K,J,"#":PLOT K,J+1,"i" 

PLOT 6, 2@,CHRS(1):PLOT 6,22,CHRS(1 


MUSIC 1,2, INTCRND(1)%*12)4+1,7 
NEXT L 
PLOT 14,25, STRS(Z)+CHRS(1)+" LOLLI 


POPS" 


460 
4708 
480 
5a 
519 
52@ 
S36 

#" 
340 
556 
368 


378 
708 
919 
920 
939 
74a 
95e@ 
960 


WAIT 8@ 
PLAY ©,0,@,@:WAIT 5 

RETURN 

REMKX&XKANOTHER GAMEXKXk* 

WAIT 15®:CLS 

FOR T=1 TO 1@:PRINT:NEXT T 

PRINT"# WOULD YOU LIKE ANOTHER GO? 


PRINT": 


GET AS: IF AS="Y" THEN RUN 


PRINT: PRINT" O.K. GOODBYE 
PRINT: END 
REMEXKXK UDG’s KXKXK 


FOR P=46269 TO 46367 
READ N 

POKE PN 

NEXT FP 

DATA @, 30,63, 62, 62, 63,63, 30 
RETURN 
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JOGGER 


My favourite program and certainly one of the highlights of 
the book, this is a frogger-type game for your Oric. This sort of 
game without machine code is usually unbearably slow and 
boring but here by using a few short routines, we have 
managed to write a game which was fast enough while 
offering plenty of features for maximum enjoyment. | say ‘we’ 
because this program was the joint work of myself and Scott 
Vincent. Scott is an experienced programmer from Ashford, 
Middlesex, who has much work published, including an 
arcade game for a large commercial software house. He 
developed the string scrolling routines essential to this game. 


The aim of this game is to get your little ‘jogging character’ 
home. You come across a giant road with many lanes of cars, 
vans, trucks and trains. You must cross the road without 
coming to grief—not an easy task. You use the left and right 
cursor arrows for lateral movement and the up arrow key for 
forward movement—in this game there is no turning back. 
The keys are not repeating so they have to be tapped 
continuously. After a couple of games, you'll get the hang of it. 
The central reservation in the middle of the screen is the one 
moment of peace and safety you'll have in the game. You'll 
quickly have to leave your sanctuary to cross the upper, more 
difficult, half of the screen to get to the other side. If you 
succeed in getting a jogger home, then you receive a bonus 
1,000 points. 


You have three lives which are displayed graphically on the 
screen. If you score over 5,000 then you receive a bonus life. 
When you have run out of lives, you are told your score and the 
high score. You will then be asked if you wish to have another 
jog. If you do, press ‘Y’ and then press the Return key. 
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Every time you are hit, the screen will turn a variety of colours 
and an explosion will sound. To continue with the game, you 
must press the spacebar. 


As you will see from the game, this program makes extensive 
use of the Oric’s colour and graphics facilities. The cars, 
lorries, etc, are created using User-Defined Graphics, the 
routine for this starting at line 9000. The various shapes 
created are then combined together in different ways to forma 
whole host of vehicles to trap you. 


The vehicles are held in the strings from line 118 to 190 and are 
scrolled across the screen both left and right using string- 
slicing techniques. Unlike many ‘frogger’ games, our game 
does not have logs to jump on over the last part of the course. 
If you want to, you could convert the whole course to one of 
trees and timber and change the runner to a lumberjack. Of 
course, then the game would have to be called ‘Logger’! 
19 REMAKE KIOGGERXEXKARERKE 
1S H1=@:DIM C#(7) 
17 GOSUB 9aeaa 
ZO PAPER @: INK 7:CLS 
25 GOSUR 2888 
ZQ PRINT CHRS (17) 
ZS FRINT CHES (6) 
4@ X¥=1:CR=@: QQ=61:LV=2 
45 SC=a 
47 RESTORE 
11@ CB(ij=" de de af de gf qf 

de gf" 
12@ CH(@)=" off FftfFfffeo gtfFffffftffc aff 
444f4f4e" 
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tre C$(FZ =" gh gt de gh de 
gf" 

14@ C$(S3=" bbbbbc fc abe de 

abe * 

158 Cé(S)="ghhh de de de af gf ds 
gh gh " 

140 C#(4)=" abc de de bbbbbc ac 
ac ac" 

i7@ C#(7)="de ah aff de de gh 
af : 

188 C#(S5)=" de  bbbbc abe ac de 
abe " 

190 ASs"ssessssscsse SSS SSS SS SESS SSsss 

19S H=600@ 

2008 PLOT 1,24, A8:FLOT 1,1,A% 

SLO AS= ERK ERE EKA KEKE REE EEK 

OOK" 

212 PLOT ©, S5.CHRS(2):2FLOT @,7,CHRE(1) 

214 PLOT ©,2,CHRE (4) :FLOT @,9,CHRE(S) 

216 FLOT ©,16,CHR¢(2):PLOT 6,18, CHR (4) 

21S PLOT @, 20, CHRE(5):FPLOT ©, 2°, CHRS (2) 

228 FOR N=11 TO 14 

2-8 FLOT 1,N,A& 

248 NEXT N 

208 PLOT 1@,127." ¢| JOGGER ‘| LIVES: 

eao FOR FF=1 TO LV 
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PLOT 26+(2PF),13, "8" 
NEXT FPF 

A=19:B=24 

SOUND 1, 2000. @:FLAY 1,1,4, 2008 

PLOT AE, "$" 

IF A<319 OR BC24 THEN PLOT 19,24,"=" 
PLAY 2,0,1,13 

FOR N=@ TO 1 

DS=C# (NK2) sES=CH (NKZ+1) 
J=NK443:K=Ne445 

GOSUE 4e0a 

NEXT N 

FOR W=@ TO 1 

DS=C$ (NK2+4) :ES=CS (NKZ+5) 
J=NK44+145:K=N44418 


= GOSUER 4080 


NEXT N 

PLAY 1.@,1,15 

X=X+4 

IF X=29 THEN X=1 

FOR N=97 TO 102 

IF SCRN(A,B)=N THEN CR=1 
NEXT N 

IF CR=1 THEN 7002 

AA=A: BR=B: Q$=KEYS 

A=A+ (Q$=CHRS (8) )— (Q=CHRS (9) ) 
B=B+ (Q$=CHRS(11))*2 

A=A+ (A=29) — (A=@) 
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415 IF B=12 THEN B=11:S5C=SC+INTCRND(1) 45 


9)+5a 

415 IF B=1 THEN gaeae 
419 H=H-1 

42@ Q=SCRN (A,B) 


4270 IF Q=22 OR O=61 OR M=24 OF M=42 


465 

469 GOTO 7a00 

465 PLOT AA, BE, CHRt (aa) 

468 QQ=SCRN (A,B) 

47® PLOT AVE, "$" 

4809 GOTO 270 

ZO@® REMAKKKTITLE FAGEX KX 

2@10 FOR A=1 TO 25sPRINT: NEXT 

ZOS5@ PRINT ook eK OE 
ook" 


2660 FRINT" x x * k x 
eK" 

2070 FRINT" xX x «x x 
xxKK" 


ZOBO PRINTY ok ok oO Ok RK Ok OF 
es 

3O9O PRINT OOO bk one 
, 2" 


THEN 


XXX 


KKK 


KXEX 


2106 FOR A=1 TO S:PRINT: WAIT 1@: NEXT 
31160 PRINT" "+CHRS(96)+" GIFFORD/VIN 


CENT 1983" 


2120 FOR A=1 TO 1@:sFPRINT:WAIT 16:NEXT 
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Zi2tt FOR T=2 TO 6:FLOT @,T,CHRS(T) 

Zi24 NEXT 

Ziz@ FOR A=1 TO ZB:PLOT A. 22, "*":NEXTA 
Zizi PLOT 0.22, CHRS (2) 

214@ FOR A=Z TO ZBsPLOT A. 21, "#":FLOT A- 
3,21, "ac":SOUND 1,15%*A,8:WA 

IT 16 

315@ PLOT A,21." "PLOT A-2,21, "NEXT 
2155 WAIT 5e 


ZAF: ZAF: ZAF 

WAIT 1@@:CLS 

RETURN 

Y=ZQ-X 

PLOT X,J,MID#(DS.1,¥) 
PLOT 1,J, MIDS (DS, Y+1,X) 


2@ FLOT 1,K,MIDS(ES. X,Y) 


PLOT Y,K.MIDS(ES,1,X? 
RETURN 


2 FLOT AA. BB. CHRS (QQ) 


PLOT 12,11, "FRESS SPACE BAR" 
EXPLODE 


; FOR TT=1 TO 2 


FOR T=1 TO 5 
INK T 
“OT A-1,B,CHRS(7) 


2= FLOT At+1,B,CHRS(T) 


PLOT A,B, "S":WAIT 15 
PLOT AJB,"+":WAIT 15 
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7OLL 


FOSS 


7580 
7505 

si 
JE20a 


TSI 


OS=KEYS 
PLOT AJB,"S":WAIT 15 


em PLOT AVB,"X":WAIT 15 


NEXT: NEXT 


; CR=@ 


SC=SC+ ( (25-B} #10) 
OQ$=KEY$:IF Qs<>" " THEN 7@68 
LV=LV-1:IF LV=@ THEN 75@@ 
INK 7 

GOTO zie 

FLAY @,8,4,@ 

WAIT S@:CLS 

FOR T=1 TO 24:PRINT:NEXT T 
FRINT" YOUR JOG IS OVER" 
FOR P=1 TO 22 

PRINT: WAIT 1@:NEXT F 

PLAY @,8,0,@ 

FLOT 12,1@."YOU SCORED "+STRS(SC) 
GOTO 95e@ 

FLAY @,9.@,@:WAIT S@:CLS 
as="L" 

PLOT 14,12,"WELL DONE!" 

INK 7 

SC=SC+H 

FING 

SC=SC+1000 

LV=LV+1 

FLOT 6,146."YOU SCORE A BONUS 


= 
& 
& 
& 
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POINTS!" 
806@ IF SC }S@@@ THEN LV=LV+2:FLOT 10,18, 
CHRS (53+"AND AN EXTRA LIFE! 


86@7@ PLOT 12,28,"SCORE SO FAR :"+STRS(SC 


§@B@ PLOT 12,22,"PRESS *Q’ TO START" 
209 GET AS: IF AS<>"Q" THEN 8a9@ 
319@ GOTO 198 
FOQO REMEKKEXKUDG EK EK KK 
9010 FOR F=46856 TO 46919 
9020 READ N 
9oZ@ POKE P.N 
9048 NEXT F 
91@@ DATA @,62, 43,63, 63,62, 24,24 
911@ DATA @,62,452,62, 63,52, 24,24 
912@ DATA 56.52.50, 49.62,63,12,12 
913@ DATA 0,.3.7,56,62,62,8,8 
914@ DATA @, 48,56, 38,43,52,4,4 
F15@ DATA 62, 57,45,45,62,63,5,6 
9140 DATA 7.9.17, 63,63,63,12,12 
917@ DATA 0,8, 62,623,622, 63,66 
9200 FOR P=462468 TO 46275 
9210 READ N 
9220 POKE P,N 
9230 NEXT P 
924@ DATA 28. 28,8, 62,8, 20, 20, 29 
92@@ FOR F=46414 TO 46423 
921@ READ N 
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9220 POKE P,N 
9220 NEXT P 

9250 DATA 63,453,462, 63,62, 65,62, 65 

9490 RETURN 

95@@ WAIT 20@:CLS 

9510 IF SC>HI THEN GOSUB 9800 

952@ FOR T=1 TO 1@:FRINT:NEXT T 

9525 HI=SC:FRINT:FPRINT TAE(26) "HIGH SCOR 
E: "4+STR# (HI) 

9527 PRINT:PRINT:PRINT TAE(21)" "3 

9520 INFUT"FANCY ANOTHER RUN":CS 

9546 IF CS="Y" THEN INK 7:CLS:GOTO 4@ 
955@ END 

9800 PRINT: PRINT: PRINT: PRINT 

98@5 PRINT TABR(18) "THAT IS A NEW HIGH SC 
ORE!" 

9820 RETURN 
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FOUR-BY-FOUR 


In this game, Four-by-four, the aim is to get four of your pieces 
(the ‘H’s) in alinein any direction, before the computer (using 
‘C’s) manages to do so. 


You indicate your choice of move by specifying the column in 
which you want to move your piece. The piece then drops to 
the lowest available position within that column. Any vertical, 
horizontal or diagonal line will count as a win. 


The computer plays a reasonable game, although sometimes 
it is too attacking and may let you in the ‘back door’ to create 
four in a row. Despite the large number of calculations, the 
computer plays quite fast with only a short pause between 
moves. The computer, very generously, gives you the first 
move every game and then bases its move on your decision. 
Priority is given to stopping you getting four in a row and 
trying itself to get four pieces in line. If neither is possible, the 
computer checks the board to see if it can possibly create a 
row of three for itself or stop you doing the same. If this is not 
possible, then the computer looks at the board and calculates 
the most favourable single move. 


Naturally, you will be able to beat the computer at this game, 
but using my family and friends as an example, the score 
between them and the computer lies, at the time of writing, at 
21 to 15 to the computer’s advantage so you can see that it will 
provide you with some opposition. As mentioned earlier, the 
computer’s game is essentially an attacking one which makes 
the whole program more entertaining. You should receive 
many hours of fun playing this game. 


One point to note is that some of the program lines, due to the 


Oric’s limitations, are 77 and 78 characters long. Take great 
care when typing these lines in, some of which have no 
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spaces, as one wrong character will stop the program running 
correctly, if at all. Once you have typed the program in, save it 
straight away, as an insurance against losing the program and 
with it, hours of hard work. 


1@ 


REM**k* KF OUR-BY—-FOURKKX 


15 GOSUB 1500 

20 GOSUB 1@9@:REM INITIALISE 

20 GOSUB 8460:REM FRINT BOARD 

4® GOSUB 468@:REM WITH CHECK 

5@® GOSUB 98@:REM HUMAN MOVE 

40 GOSUB 860:REM FRINT BOARD 

7® GOSUB 680:REM WIN CHECK 

B® GOSUB 11@:REM COMPUTER MOVE 

9@ GOTO 20 

104 REM 4KXKXKXKAKEEKE 

119 REM COMPUTER MOVE 

126 PRINT:FPRINT "STAND BY FOR MY MOVE... 
125 PING 

120 B=10 

14@ B=B+1 

15@ IF A(B)= -9 THEN i8@ 

16@ IF ACB)= C THEN X=C: GOTO 2190 
17@ IF AC(B)= H THEN X=H: GOTO 2194 
18@ IF B¢77 THEN 140 

198 GOTO 486 

2OQ REM KKXKKKAKAKAKEKEKEKEERERK 
21@ REM FOUR IN A ROW DANGER/CHANCE? 


REM ACROSS 
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230 IF A(B+1)=X AND A(B+2)=X AND A(B+3)= 
E AND A(B+12)<>E THEN MOVE= 

B+2: GOTO65e 

240 IF AC(B-1)=X AND A(B-2)=X AND A(B-F)= 
E AND AC(B+7)<>E THEN MOVE=B 

-2:60TO 65¢@ 


25@ IF ACB+1)=X AND A(B+2)=X AND A(B-1)= 
E AND A(B+9)<>E THEN MOVE=B 

-1:G0TO 65@e 

26@ IF A(B-1)=X AND A(B+2)=X AND A(B+1)= 
E AND A(B+11)<>E THEN MOVE= 

B+1:GOTO 656 

270 IF ACB+1)=X AND A(B-1)=X AND A(B+2)= 
E AND A(B+12)<>E THEN MOVE= 

B+2:G0TO 465@ 

280 IF ACE+1)=X AND A(B-1)=X AND A(B-2)= 
E AND AC(B+8)<>E THEN MOVE=B-2:60T0 658 
29@ IF A(B-1)=X AND A(B-2)=X AND ACB+1)= 
£ AND A(B4+11)<3E THEN MOVE=B+1:S0TO 658 
200 REM DOWN 

219 IF B>S@THENIFA(B-1@) =XANDA(B-20) =XAN 
DA (B+1@) =EANDA(B+20)<>E THEN SDR=1 

215 IF SPR=1 THEN MOVE=B+1@:GOTO 450 

320 REM DIAGONALS 

ZF@ IF A(B+11)=X AND A(BE+22)=X AND ACE-1 
1) =EANDA(B-1)<>E THEN MOVE=B-11:GOTO 4650 
Z=4@ IFA(B+9)=XANDA (B+18) =XANDA (B-9) =EAND 
ACB+1)< >ETHENMOVE=B-9:GOTO 4658 
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35a 
248 
279 
28a 
HEN 
298 
HEN 
4a 


REM KEXKKKKKKKKEKEKKK 

REM MAKE/BLOCK THREE? 

REM ACROSS 

IFA (B+1)=XANDA(B+2) =EANDA (CB+12)<¢3E T 
MOVE=B+2:60T9 650 

TFA CB+1)=XANDA(B-1)=EAND ACBR+9) <3E T 
MOVE=B-1:60T0 450 

IF ACB-1)=XANDACB-2)=E AND ACB+B8)<3E 


THEN MOVE=B-2:G60TO 650 


419 


42a 


REM VERTICAL 
IF ACB-10)=X AND ACB-9)=E AND ACB)<> 


E THEN MOVE=B-10:GOT9 650 


AZ 
Aaa 


REM DIAGONAL 
TF ACB+9)=X AND AC(B-9)=E AND ACB+1)< 


>E THEN MOVE=B-1@:G0TO 465@ 


45a 


IF BSLiTHENIFA(R+11)=XANDA(B-11)=EAN 


DACE-1)<>THEN MOVE=B-11: COTO 4656 


440 
478 
480 
49@ 
SOO 
519 
520 
S28 
340 
558 


GOTO 1f8@ 

REM XXXKKKKEKKKK 
REM SINGLE MOVES 
FOR N= 1 TO 3 


MC(N)D= @ 

NEXT N 

COUNT = @ 

FOR B = 11 TO 77 


IF ACB) <>C AND A(B)<3H THEN 400 
IF ACB+1)=E AND A(B+11)<>ETHENCOUNT= 


COUNT+1 = ™ (COUNT) =B+1 
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56@ IF A(B-1)=E AND A(B+9)<>E THEN COUNT 
=COUNT+1:M (COUNT) =B-1 

570 IF ACE-1@)=E AND A(B)<>E THEN COUNT= 
COUNT+1:™ (COUNT) =B-19 

5S8@ IF A(B-11)=E AND A(B-1)<3>E THEN COUN 
T=COUNT+1:M (COUNT) =B-11 

59@ IF AC(B-9)=E AND AC(B+1)<>E THEN COUNT 
=COUNT+1:M (COUNT) =B-9 

608 NEXT & 

61@ IF COUNT <> @ THEN 640 

62@ PRINT: PRINT "I THINK WE SHOULD CALL 

IT A DRAW" 

620 PRINT: PRINT: PRINT: END 

6408 MOVE=M CINT (RND (1) XCOUNT) +1) 

65@ ACMOVE) =C 

655 SDR=e 

468 RETURN 

670 REM 4XXKKKXKE 

68® REM WIN CHECK 

59@ X=H 

708 B=10 

71% B=B+1 

720 IF ACBI<>X THEN 7708 

720 IF ACE+1)=X AND A(B+2)=X AND A(B+2)= 
X THEN 880 

74@ IF B>2@ THEN IF A(B-10)=X AND A(B-20 
2=X AND ACB-20)=X THEN 800 
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7E@ TS BSTT THEN TE ACB-11)=% AND AlE-22 
‘=X OND 4°P-3Z)=X THEN See 


74@ TF BST THEN If A(B-9)=* AND /B-1293 


=%¥ AND ACE-DB7)=X¥ THEN gen 
77@ IF BAvy THEN 710 

738@ TE X=H THEN X=C:GOTO 7@e 

79@ BETURN 

2oe SEMEXAXWIN COUND Eek 

210 SRINTSCa INT 

828 TF X=H THEN SRINT'YOUT VE BEATEN ME, 
HUMAN IT" 

S2@ TF X¥=C THEN PRINT" I*VE DEFEATED 
HUMAN!" 


Bt SOUND 1.4@@,S:WAIT 12@:PLAY @,9,2@,8 


¢ 
a 
& 


240 SRINTISGINT:SRINTSEND 
SEQ FEM foo 

24@ SEM SPRINT BOARD 

87@ CLS: SRINTISSINT 

B72 PAPCR Z:INK @ 


SPE PRINTISSINT' €e RK ER EKEXKXEOUR-BY-FOU 


298 SCRINT TARCIS: 

900 FOR J=1 TO 7 

91@ SRINT CHRE(ACK+II =" "s 
92@ NEXT J 

92a NEXT KE 
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925 

940 

950 

240 

270 

99@ 

298 

LAAM 
1814 
1026 
1030 
1040 
1050 
1040 
1070 
1688 
1096 
1180 
1130 
114@ 
1150 
114@ 
117@ 
1180 
119@ 


PRINT: PRINT 
PRINT TAB(19?:"1 2245 6 7" 
PRINT: PRINT 
RETURN 
REM 4KXKEKKEKK 
REM HUMAN MOVE 
PRINT" YOUF MOVE...":PRINT 
SPRINT WHICH COLUMN DO YOU WISH TC" 
INPUT"MOVE INTO "3J 

Z=J 

Z=Z+1@ 

IF A(Z+10)=E THEN 1020 

IF ACZ)=E THEN ACZ)=Hs RETURN 
FRINT "YOU CANT MOVE THERE" 
GOTO 1688 

REM K¥X4EXKXKE 

REM INITIALISE 

CLS 

DIM A(109) ,M(30),P (6) 
E=ASC(".") 

H=ASC ("HH"): C=ASC("C") 

FOR B= 1 TO 109 

ACB) =E 

D=B-1@X INT (B/1@) 

IF D=@ OR D >7 OR B <11 OR B?77 THE 


N AC(B)= —-9 


1200 
1219 


NEXT B 
RETURN 
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1500 
1510 
1520 
1530 
1540 
1556 
1568 
1580 


HIRES 

CURSET 40,25,@:CIRCLE 25,1 

CURSET 85,8@,@:CIRCLE 25,1 

CURSET 120.125.@:CIRCLE 25.1 
CURSET 175,170,@:CIRCLE 25,1 
PRINT" FOUR-BY-FOUR" 
PRINT" "sCHR$(96)3" 1982" 
WAIT 300: TEXT: RETURN 


Here is a sample game below, where the computer got the 
better of me. 


AEX EKER ERE KEKE OQUR-BY—-FOURKE ERK KEK KEKE 


. 
Lo cnr i 4 
132 2465 


ir * 
~j * 


YOUR MOVE... 
WHICH COLUMN DO YO! WISH TO 
MOVE INTO 


KRXKKKKKEKAKKPOUR-BY—FOUR EEK EE 


iho 


hj * 
te) 
a 
cr 
~ 
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HEME EKERKKKKKFOUR-BY—-FOURKEEXEKERENEEE 


. ee eee 
ah elt fac ee 2h tes Ge 
Sia a ee 
a ee ee 
r 
has ce he 40 
se a aw! Lae SA SS Se 
12245 65 7 


YOUR MOVE... 
WHICH COLUMN DO YOU WISH TO 
MOVE INTO 


ERREKKEX KEKE KFOUR-BY—FOURKEEAEKEX EX EAE 


ote a ee GE cee Se 
« « 2. HOW a 
1232452647 


ss > es =» = « 
. 8 s = -s =  « 
= «© «© « = = « 
- = » -_ = » . 
+ = =» « = 8 


x 
mxro: 
im) 


ho 
tqo* 
a 


YOUR MOVE... 
WHICH COLUMN DO YOU WISH TO 
MOVE INTO 
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At this point, | thought | might have an easy win with the 
computer not noticing my three in a row... 


EEKKKKEEEEEKKFOUR-BY—-FOURKKEXERKAENEEK 


i 0 ¢ 
=x 
moo 
Oo 


No such luck, a simple block by the computer spoils my 
chances. 


EXKKXEKERKKKXKFOUR-BY—-FOURKEEREXKEE EEE 


1 


oe 
ae 
Fe les 0 


ho: 


YOUR MOVE... 
WHICH COLUMN DO YOU WISH TO 
MOVE INTO 
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HRKKEKKETERKKEOQUR-BY-FOUR KEK KKERXEKEXE 


ee 
mcm: 
ros 


KR KEEK EKA KKEOUR-BY-FCOUR EKER EKER EEE 


OPE Cae: <* 


i Cics 


YOUR MOVE... 
WHICH CCLUMN DO YOU WISH TO 
MOVE INTO 


And here is the latter portion of the game. 
TREK KKEKFOUR-BY-FOURKKEXEXEKERERK 


e180 e. se (Ee 
mi cle ue! ee Ee 
et ow EB Yee He 
aa a es, Soo a ere 
2 OM CHG a. 
HOG HOH ee . 
1224567 


YOUR MOVE... 
WHICH COLUMN DO YOU WISH TO 
MOVE INTO 
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KXKEKKKKKKKKKEOUR-BY—-FOURKEKKEKEXEKEKK 


nant: 

i Tro: 
ATtTicom: 
aonroanro: 


HK KK KKK KK EXFOUR-BY—FOURKEEXEXKAER KKK 


nNooaats: 

iW cron: 
prrind: 
Ton oo: 


YOUR MOVE... 
WHICH COLUMN DO YOU WISH TO 
MOVE INTO 


KKK KKAEKKEKKAFOUR-BY—-FOURK ERK KKKAKRKTK 


aaa: ee 
» « «s «@ Hae 
«FES € 6c. +e 
eH OG BE oe a 
cx SU 
HCHHHC. 
12245 67 
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KEXERKEKEKEKXEOUR-BY—-FOUR KEE EEX KEKE 


ee ee a ee 
eee OC 6. Hoe 
a HC Ee Se 
a HO OHVE. Se 
or a 
HCHHHE. 
12°53 45 6 7 


YOUR MOVE... 
WHICH COLUMN DO YOU WISH TO 
MOVE INTO 


HRKRKKKERKEKEXKFOUR-—BY—-FOURK EKER KKEKKEK 


~« Hw. . 
» »« ©.H. . 
= BOC VEE s: 
2 A as “ee 
HCHHE. . 
HE HHHECE. 
1224567 


XXKKEKEEKKEKKFOUR-BY—-FOUREKKAXRAKKAK KKK 


aw Ae, Bw 
eo. ©. H. . 
ae Be Ge Gs Oe sae oe 
« HC HE s. x 
HECHHEC. 
HCOHHUHHE. 
1274567 


I°?VE DEFEATED YOU, HUMAN! 
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TIME-WARP 


This listing uses the DRAW command to create the effect of a 
‘time warp’. A series of lines are drawn out from the centre of 
the screen to random points. The overall effect is very 
effective and interesting. Every now and then, the INK colour 
is changed to increase the effect. 


1@ REMAXKKXTIME-WARPX EH KX K 
2@ HIRES 

25 PRINTIFRINT TAB(22)"TIME-WARF ":CHRS ( 
96)3" 1982" 

3@ C=INT(RND(41)*7) 414 

4@ A=INT(RND(1)*24@)-120 

5@ B=INT(RND(1)*198) -99 

4@ CURSET 120,100.1 

7@ DRAW A.B, 1 

8@ IF RND(1)>.8 THEN INK C 

9@ WAIT 2o 

19@ GOTO zo 
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BLACKJACK 


This is my computer version of the famous card game, which 
also masquerades under the names of ‘Twenty-One’ and 
‘Pontoon’. You must attempt to get as close as possible to a 
total of 21 without exceeding it. The computer plays aces high 
unless this would lead to you ‘busting’, in which case the ace is 
worth one. 


Both you and the computer are dealt one card each. You then 
have the option of ‘sticking’ on that one card or trying to get 
closer to the target of 21 with extra cards. Once you have 
‘stuck’, the computer, as dealer, decides what it is going to do. 


The gameis very ‘user-friendly’, aterm denoting how easy and 
straightforward a game is to play. 


The game kicks off with a simple picture on the Hi-Res screen 
and a lovely rendition of a famous piece of gambling music 
which is played from lines 8000 onwards. 

10 REM**X*xXBLACKJACKKE Xx 

2@ CLS:PAPER Z:INkK © 

20 HIRES:CURSET 140,466,606 

4@ DRAW —60,,1:DRAW 0,40@,1:DRAW 60,0, 1: 

DRAW @,4@,1 

5@ DRAW —6@,@,1:CURMOV 20,20,0:DRAW @,-1 

40,1: DRAW 20,0,0: DRAW 0,140 

yl 

55 GOSUB 8@ee@ 

6@ WAIT 10@:TEXT:CLS 
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7®@ CLS: R=R+1:0IF R/B=INT(R/8) THEN GOSUB 
Bae 


74 PRINTS PRINT"COCCCOOCOCOCOCOCLLCCCCCLCOCCOC 
COCCCOCCCLCCCC" 

76 H=@:Z=@:GOSUB 866 

80 PRINT:FRINT"FPress *X” for your first 

card." 

9@ GET Z#:IF Z$<>"X" THEN 9® 

92 CLS 

94 B=INT(RND(1)*12)+2 

95 BS=STRS (BR) 

1@@ IF B=11 THEN Bs="J" 

119 IF B=12 THEN BS="Q" 

120 IF B=13 THEN BS="K" 

12@ IF B>9 AND B¢14 THEN B=19 

14@ IF B=14 THEN B=11:BS="A" 

15@ IF B=11 AND H+B?21 THEN B=1i 

16@ FRINT: PRINT TAB(25) BS 

17@ H=H+B:PRINT:PRINT"Your total is "sH 

18@ PRINTsPRINT“Enter ’A* for a new card 
or press" 

19@ PRINT" *S’* to stand. "sPRINT: PRINT: IN 
PUT TS 
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208 CLS: IF T$="A" THEN 94 
248 IF H=21 THEN PRINTSFRINT " BLACKJACK 


258 IF H>21 THEN FRINT:FRINT" BUST": GOTO 


=6@ PRINT: PRINT"OK, you stand on "sH 

27@ PRINT 

288 FPRINT:PRINT"And my total was "3Z 

290 PRINT: PRINT"'I will now deal." 

20@ GOSUB 8He 

31@ IF Z>21 THEN PRINT: FRINT TAR(2@) "BUS 
." 

320 IF Z=21 THEN FRINT:FRINT TAB(2Z@) "BLA 
CKJACKE!" 

220 IF Z<i8 AND H<22 THEN GOTO 208 

%4@ WAIT =@e@:CLS 

35@ PRINT:PRINT“You stood on "sHsFRINT 
26@ IF Z<22 THEN FRINT"Y stand on "3Z:FR 
INT 

378 IF H=21 THEN PRINT"You have BLACKJAC 
Ki" 

=B@ IF H=21 AND Z=21 THEN PRINT:FRINT"An 
d so have I!" 

39@ IF Z=21 AND H<>21 THEN PRINT:FRINT"I 
have BLACKJACK!" 

400 IF (Z>H OR H?21) AND Zi22 THEN FRINT 
:PRINT"IT WIN":SOUND 1, 1000, 

9:WAIT 90 
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41a 
sPRI 
~orW 
420 
Sa 
420 
BUST 
440 
Bao 
31a 


B4a 

B58 

Boe 

B78 

8Ga@ 
8010 
8440 
Bose 
B46 
READ 
Ba7ea 
B8O8e 
8090 
8100 
8102 
B12 


IF (H>Z OR Z321) AND HESS THEN PRINT 
NT"YOU WIN":sSOUND 1,108 
AIT 108 

IF H<22 AND H=Z THEN PRINT: FRINT' It? 
draw." 

IF H?21 AND Z?21 THEN PRINT"We both 
WAIT 5@@:GO0TO 7@ 
REMKA KH KAKA KKK AKER KARR EK KK KKK 
A=INT (CRND (1) 412)4+2 
FOR N=1 TO 1@@@: NEXT N 

IF A>9 AND A<14 THEN A=1@ 

IF A=14 THEN A=1i1 

IF A=11 AND Z+A>21 THEN A=1 
Z=Z+A:PRINT:PRINT"My total is "3Z 
RETURN 

REMAXXKXENTERTAINERKKA KEK 

O=1 

FOR N=1 TO 74 

IF N=19 OR N=27 THEN RESTORE 

IF N=27 OR N=55 THEN FOR D=1 TO 20: 
DN: NEXT 

READ A.B 

IF At12 THEN O=0+1:A=A-12 

IF A<1 THEN O=0-1: A=A- (2A) 

MUSIC 1,0.A,@ 

MUSIC 2,0+1,A,@ 

MUSIC 2,0-1,A,@ 
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8105 PLAY 7,9,1, 20000 

811 WAIT B-2 

812@ NEXT N 

S913@ PLAY 0,0,8,0 

8200 DATA 8,15,9,15.10,15, 18, 25,-10,15,1 
8,25,-10,15,18,45 

8210 DATA 6,15.8,15,97,15,10,15,4,15,8,15 
,10,25,5,15.8, 25,6, 70 

822 DATA 2,15,1,.15,-12, 15,15,15,6,15,10 
,28,8,15.5,15,3,15,8,55 

823@ DATA 6.15,8,15.9,15,10,15,6,15,8,15 
,10,25,6,15.8, 25 

824@ DATA 10,15,6,15,8, 15.10, 25,6,15,8,2 
5 

B25@ DATA 10,15,6,15,8,15, 10, 25.5,15.8.2 
5.6,100 

8200 RETURN 
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MISSION APOLLO 


This is an unashamedly traditional version of the classic 
computer game, ‘Lunar Lander’. The program follows similar 
lines to the usual ‘Lunar Lander’ programs displaying height, 
velocity and amount of fuel left. A small spacecraft provides a 
graphic display of your situation. 


As by now you must have guessed, the object of the game is to 
land your craft on the lunar surface as gently as possible. 
Depending on your success as captain of the mission, you are 
given agalactic rating. Even once you’ve managed to land the 
spaceship, there is still the incentive of obtaining a higher 
score. 


If at some time during the game, you are too generous with the 
thrust and find yourself going upwards, you can enter ‘0’ as 
many times as necessary to start bringing your ship down 
again. 


If you would like a more difficult game then change the 
specified program lines to the following; 


240 B=B+A+(T-(ABS(A/4)-3) 
250 A=A+(T-(ABS(A/4)-3) 
270 IF ABS(B)<10 AND ABS(A)<6 THEN GOTO 450. 


If you are feeling very suicidal, you can also change the lines 
determining the fuel, height and velocity starting values. 

16 REMAkKEKEK MISSION APOLLO ¥x*%xx 

28 HS=-50e@:CGOSUB 9a 

25 SC=e 


20 FAPER ©: INK 7 


101 


A=—-26—-INT (RND (1) *60) 
B=1200+INT CRND (C1) *28@> 
C=TlO+ INT CRND (C1) *9@) 

CLS 

FRINT" MISSION AFOLLO":F 
RINTS PRINT 

9@® B=INT (BR): A=INT CA? SC=INT(C) 

1@@ PRINT'HEIGHT: "sB.."VELOCITY: "3A 
11@ PRINT,.,"FUELs "3 

120 FOR @=1 TO1S-B/106 


(a nN om UW + 
& SS SQ & 


n 


® NEXT @ 

S R=2Z+RND (13 *2-INT CRND (1) #2) 

15@ PRINT TABCR+1)"&":PRINT TABCR) "#84" 
16@ FOR Q=16-B/1@@ TO 16 

7@ PRINT 

180 NEXT @ 

19@ WAIT 150: FRINT" G26GGRRGGGEERGEEBEG RAI 


al 


206 PRINT: PRINT 

2@2 INPUT" THRUST" s 7 
2@S IF SGN(T}=-1 THEN Zee 
21i@ WAIT 1008 

228 IF TsC THEN T= 

228 C=C-T 

24@ B=B+A+ (T- (CABS (A/&) )—-2)} 
mue@ A=A+ (T- CABS (A/S) )-2? 
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24@ IF Ceti AND B?iee® THEN 260 
27@ IF ABS(BI<15 AND ABS(A?<1@ THEN GOTO 


IF Boi4 THEN 7@ 
290 IF Cri THEN 2ie 
200 FLOT @,14,CHRS(5)4+"YOU HAVE RUN OUT 


OF FUEL" 

=1@ EXPLODE: FOR T=1 TO 7:sFLOT #,19, CHRS ( 

TISFLOT @, 20, CHRS(T) 

S12 FLOT 0,21, CHRS(T?:PLOT ©, 22,CHRS(T) 

214 WAIT 2O:NEXT T:WAIT 1908 

716 FOR F=i TO 12:PRINT: NEXT FP: PRINT" YOU 

FR SHIF CRASHED AT "“;ABS(A); 

" KPH" 

SB@ FRINT:FRINT", CREATING A "“;INTCABRS(A) 

#4523" METRE DEEF CRATER” 

225 FOR T=1 TO 12:FPRINT:NEXT T 

22@ SC=SC-1@@-ABS (A) 

740 WAIT 250 

250 FOR T=1 TO SsPRINT: NEXT T 

2608 PRINT"YQUR GALATIC RATING IS "s5C 

2465 PRINT: PRINT: PRINT 

270 IF SC>HS THEN HS=SC 

=B@ PRINT: FRINT"BEST RATING SO FAR IS "; 
HS 

290 PRINT:PRINT"PLEASE STAND BY FOR YOUR 
NEXT MISSTON" 

40@ WAIT 8e@:GOTO 4@ 
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430 


REMK#k#k SUCCESS €*k4xk 


460 PLOT 4,10,"WELL DONE INTREPID CAFTAI 
ne 

47@ PLOT 2,13,CHR#(1)+"YOU LANDED YOUR S 
HIF SAFELY" 

48@ PLOT 2,146,CHR$(6)+"YOU COMPLETED YOU 
R MISSION" 

49@ SC=C*224:G0SUB 92@:GO0TO 74a 

90@ REMKX** UDG?s +k 

901 FOR P=4624@ TO 46291 

9092 READ N 

9@2 POKE PLN 

904 NEXT F 

905 DATA 2,7,15.31,6,6,5.15 

9@6 DATA 452,62, 52,63, 12, 20,0,8 

9@7 DATA 48.56, 40.62, 24, 24, 24, 68 

908 DATA 12,20, 462, 22, 22.62, 22,22 

919 RETURN 

92@ FOR J=1 TO 2 

92@ FOR T=1 TO 1@ 

94@ READ ALE 

95@ MUSIC 1.2,A.@:PLAY 1,@,1,1000 

96@ WAIT B:NEXT T 

97@ NEXT J 

975 MUSIC 1.4.1,@:PLAY 1,.0,1, 1000 

9B@ WAIT 4@:PLAY 0,6,.4,0 

99@ RETURN 
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be) 


10@@ DATA 1,20. 2,20.5.6@, 2, 28,5, 20, 6,40, 
iinta bs oO eR, 15.9; 106 
1@1@ DATA 6, 20,8, 70,10, 69.8, 70, 1@, 70, 12, 


BO010, 30,12 020.12, 15,12.15 
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SCRAMBLER 


No, not the arcade game, but a great anagram solving game 
which pitches you against your computer and demonstrates 
the power of BASIC string handling. The computer chooses a 
word from its fair-sized dictionary/wordbase and then 
jumbles it up. All you have to do is guess the word. If you are 
right, the program displays a nice variation on the classic 
Moire pattern. You are severely reprimanded if you are 
unfortunate enough to get it wrong. 


| decided not to incorporate a time limit feature, but you can if 
you wish to by adding a timer loop and using KEY$ instead of 
INPUT. Each letter entered by the player would have to be 
stored in an array and then each letter of the input array 
checked with each letter of the computer’s word. 


The ‘word scrambling’ routine can be twisted round the other 
way to aid anyone who regularly tries to solve the anagrams 
which appear in some of the national and local newspapers. If 
you have a printer, then you could modify the listing further to 
get it to print out all the possible combinations of letters. 


Anyone seriously interested in this would add some form of 
discriminating feature which would stop combinations such 
as ‘ZQ’ and ‘FD’ being printed as they cannot help form a 
genuine word. 


Scrambler is split up into five separate, distinct blocks, the 
main loop (lines 10 to 210), the ‘win’ routine (lines 230 to 360), 
the ‘lose’ routine (lines 400 to 450), the ‘another go’ routine 
(lines 500 to 540) and the ‘choose word’ routine (lines 9000 to 
9220). If it is possible to split your own programs up into 
blocks easily then | recommend that you do so. It is much 
easier to come back to a program after several weeks absence 
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and modify it if you can see and understand the separate 
blocks which comprise the whole program. | am not saying 
that your one program should be lots of little bits and pieces 
connected loosely, but asensible thought-out approach com- 
pensates for many things. 


- 
S 


REM*X*KSCRAMBLER AK 

26 GOSUB 9808@:F=a 

70 CLS: INK 7:sFAPER 4 

46 FOR M=1 TO 12: FRINT TAER(27) "SCRAMBLER 
"SPRINT 

S@® MUSIC 1,27.M,7 

56 WAIT 4@:NEXT M:PLAY ©0,60,0,© 

7@ FOR A=1 TO 24:FRINTSWAIT 1@:NEXT A 

8 FPRINTZPRINTSPRINT"Unscramble this wor 
d: ";0% 

90 PRINT:FPRINT"Start Pow... ":PRINT: PRINT 
119 INPUT KS 

178 PING: PRINT: FRINT 

18@ PRINT"I711 check your answer..." 

198 WAIT 10@:IF LEN(KS)<6& THEN 406 

21@ IF KS%=WS THEN 27@ ELSE GOTO 46a 

228 REMKXAX*kAWIN ROUTINEX KX 

24@ HIRES 

25@ FOR B=8 TO 229 STEP 5 

268 CURSET ©,199,2 

278 DRAW B,-199,1 

288 CURSET 229,199, 

270 DRAW —-B,-199, 1: NEXT 

30@ RESTORE 
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214 
22Q@ 
RAS) 
248 
25 
255 
248 
400 
410 
420 
gues 


420 


an saa +} + 
2 o oh - 
So @ © 


& cf 


ODODE 
54a 

9080 
9016 
9020 
9020 
9046 
7058 


FOR A=i1 TO 7:READ B 

CURSET §@+(1@kA),170,2 

CHAR B,@, 1 

NEXT A 

SOUND 1,1@@,7:WAITI@@:PLAY 6,0,6,0 
WAIT Zaa 

GOTO 56e 

REMK*X**LOSE ROUTINE XX 

CLS: FAPER @: INK 6 

FLOT ©,4,"You had plenty of time to 
Ss right" 


PLOT ©,6,", but you failed miserably 


FLOT 4,.9,"The word was "+WS 
SOUND 1,15@0,8: WAIT 10@:PLAY ©0,6,0,6 


REM*X*X*XAANOTHER GOKk*xX 
WAIT 190 


TEXT:CLS: PAPER 2: INK @ 
PLOT 10,10, "Another word?" 
GET AS: IF AS<>"Y" THEN FLOT 12,16,"6 
YE": END 
RUN 
REM**X*xkCHOOSE WORDX4** 
FOR K=1 TO INTCRND(1)*460)+8 
READ WS 
NEXT K 
F=LEN (WS) 
DIM ACF? 
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9assS FOR T=1 TO F 

97060 A(T) =ASC (MIDS (WS,T,1)) 

9065 NEXT T 

9070 FOR T=1i TO 40 

9075 X=INT(RND (1) kF) +12 Y=INT CRND (1) KF) +1 
7080 B=A(X) sC=ACY) s A(X =CrA(Y) =B 

97683 NEXT T:0$="" 

9087 FOR T=1 TO F 

97090 O$=0%+CHRS (ACT) SNEXT T 

9095 RETURN 

9190 DATA 89,79,85,22,87.79,78 

9110 DATA "PERPENDICULAR", "VAMPIRE". "ANG 
ULAR", "DIAMOND", "UMBRELLA", 

"SHREDDING" 

F120 DATA "DENTAL", "ESTABLISHMENT", "MISU 
NDERSTANDING", "FUTURISTIC", 

"GROTESQUE" 

912@ DATA "PSYCHOLOGIST", "ALGORHYTHM", "C 
HRYSANTHAMUM", "LOGISTICS", " 

POSITIVE" 

914@ DATA "EXAMINATION", "TRAVELLER", "BAT 
CHELOR", "DEPRESSION", "PASTU 

RISED" 

9156 DATA “ORGANISATION”. "SANCTUARY", "MA 
GNETISM", "TACHOGRAPH", "JUDI 

CIARY" 
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916@ DATA "ROUNDABOUT", "SYNTHETIC", "MEDA 
LLION", "ALCOHOLIC", "CHIROFC 

DIST" 

917@ DATA "HARLEQUIN". "SOCTALIST",. "CONSE 
RVATIVE". "HARMONIES". "CULIN 

ARY" 

919@ DATA "PRETENTIOUS", "CIVILISATION"," 
WRINELED", "GARGOYLE", "ANTIE 

TOTIC™ 

7196 DATA “TEMPESTUOUS", "ARCHITECTURE", " 
SENETICS", "ZQOLOGIST","TOTA 

LITARTAN" 

9200 DATA "“BRUSQUE", "INTELLIGENCE". "UTOP 
TAN", "LUDICROUS", "VIVACTOUS 

", "BULBOUS" 

9216 DATA "MANDATORY", "SPECTRAL", "OINTME 
NT", "FLOUNDER". "HYDRAULICS" 

92260 DATA "RADIATOR", "PREPARATION", "TRAN 
SITION" 
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IN SEARCH OF 
THE UNICORN 


Your quest to find the last of the Unicorns takes you to a large 
cave just outside Timbuctoo. In this cave you hope to find the 
mythical beast that has been hiding for thousands of years. 
You have been lucky, on your journey down to Timbuctoo, as 
you were accosted by an elderly witchdoctor who gave you 
his enchanted rod. This rod will give you an approximate 
indication of where the unicorn is. As you enter the cave... 
horrors...miles of twisting tunnels appear before you. 
Remember, this is not one cave but a series of caves, so your 
rod will come in handy. 


Your computer will display the number of steps that you have 
taken and will tell you what lies in the direction of the four 
main compass headings, together with the reading from the 
enchanted rod. You can either move ‘N’, ‘S’, ‘E’, ‘W’ or ask for 
help. Help comes in the form of a quick glance at the map of 
the whole cave but costs 15 steps. 


The speed at which you find the Unicorn is, needless to say, 
the ultimate aim. When the map is displayed, you are shown as 
a‘+’ and the walls as solid blocks. The unicorn’s position is not 
displayed—that would be too easy. To find the unicorn you 
must learn to interpret the reading from the enchanted rod. | 
am not going to tell you how—I’ve probably told you too much 
already. So off you go into the maze...in search of the 
Unicorn. 


The cave system generated by lines 690 to 859@ is not identical 
each time you play the game, but certain features dictated by 
the DATA statements from line 860 onwards are the same. The 
routine from lines 641 to 649 displays the picture of the cave. 
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1@ REM****IN SEARCH OF THE UNICORNAXKXX 


12 INK 7 

=®@ GOSUB 646 

25 GOSUBR 2600 

2@ GOSUB 476 

46 REMAXXXKSKOPEN/CLOSEXEXKH EX 

S@ M=M+isCLSsFRINT: PRINT 

70 PRINT"STEP NUMBER "sMs PRINT 

B® FRINT"NORTH: "s; 

160 IF A(D+1,E)=S THEN FRINT"OFEN" 
PRINT"WALL" 

12@ PRINTsPRINT"SOUTH: "3; 

12@ IF A(D-1,E)=S THEN FRINT"OPEN" 
PRINT “WALL” 

15@ PRINT:PRINT"EAST: "5 

16@ IF A(D,E+1)=S THEN FRINT" OPEN" 
PRINT"WALL" 

180 PRINT: PRINT"WEST=: "3; 

19@ IF A(D,E-1)=S THEN FRINT" OPEN" 
PRINT “WALL" 

20@ PRINT: PRINT 

219 PRINT"Your enchanted rod reads 
228 PRINT 10@*ABS (Z—-D)+1@xXABS (Y-E) 
24@ REMKXKXEXEMOVEMENT XERKEEKK 
208 PRINT: PRINT: PRINT 


ELSE 


ELSE 


ELSE 


ELSE 


26@ PRINT"Which direction do you want to 


an 


move: 
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27@ PRINT: PRINT" N (north) S (south?) 
E (east) ay 
288 PRINT" W (west) H (help) 


20@ INFUT AS 

310 IF AS="N" AND A(D+1,E£)=X THEN 208 
320 IF AS="S" AND A(D-1,E)=X THEN 300 
26 IF AS="E" AND AC(D.E+1)=X THEN 200 


4@ IF AS="W" AND A(D,E-1)=X THEN 208 
25@ IF AS$="H" THEN GOSUB 470 


260 IF AS="N" THEN D=D+1 

27@ IF AS="S" THEN D=D-1 

780 IF AS="E" THEN E=E+1 

29@ IF AS="W" THEN E=E-1 

406 IF Z=D AND Y=E THEN 4206 

41@ GOTO 5e 

420 REMKXKKXEXEXK SUCCESS KXKHKEEKKEX 

424 PRINT: PRINT"You have reached your go 
al....":WAIT 25@ 

435 PRINT: PRINT"You have just found the 
last surviving" 

426 INK 1 

427 PRINT:FOR T=1 TO 1@:PRINT TAB((13)42 
*T) “UNICORN! " 

429 NEXT T 

443 PRINT: PRINT"“It took you just "3M" d 
ays. " 

445 MUSIC 1,4,8.7:WAIT S@:MUSIC 1,4,12,7 
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WAIT 7@ 
460 END 

470 REMOOOORK MAF DISPLAY oModorOok 
490 CLS:PRINT 

510 PRINT"North": PRINT 

520 FOR B=15 TO 1 STEF-1 

52@ FOR C=1 TO 15 

54@ IF A(B,C)=X THEN PRINT"#": 

55@ IF B=D AND C=E THEN PRINT"+"::GOTO 5 
7® 

56@ IF A(B,C)=S THEN PRINT" "; 

57 NEXT C:PRINT:NEXT B 

575 PRINT 

58@ PRINT "South" 

5909 M=M4+15 

460@ WAIT 250 

61 CLS:A(D,E)=S 

62@ RETURN 

620 REMAXEKKAKKINITIALISAT ONES 22 OR RR K 
5648 CLS 


641 FAPER 7:INkK 4 
642 HIRES: CURSET 5®,199,1:DRAW 4@,-140,1 


:DRAW 10@,-22,1:DRAW 42,30, 
1 

645 DRAW 5,14@,1:DRAW —100,0,@:DRAW 35, - 
75.,1:DRAW 40,-10,1:DRAW 15, 

85,1 

647 CURSET 9@,59,0:DRAW 80,20,1:DRAW Sz, 


-Z23,1 
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648 


PRINT"A view of the cave from outsid 


e just before you enter to 


find"; 


549 
45@ 
652 
655 
660 
665 
68a 
699 
7@8 
71a 
72a 
7208 
74a 
7358 
768 
779 


PRINT" the UNICORN": WAIT 100 

FOR F=1 TO 2 

FOR T=2 TO 20 

CURSET 40@,40,1 

CIRCLE T,i 

NEXT:NEXT P 

CLS 

DIM A(15,15) 

B=INT CRND (1) *2)+1 

Z=14:Y=14 

IF B=2 THEN Y=2 

IF B=2 THEN Z=2 

X=1:5=2 

FOR B=1 TO 15:FOR C=1 TO 15 

ACB, C)=X:IF RND(1)>.8 THEN ACE,C)=S 
IF C<2 OR C14 OR BYKS OR B>14 THEN A 


(B,C) =X 


788 
79 
Bea 
810 
B2a 
Bz 
a4 
842 


NEXT CsNEXT B 
D=2:E=2 
FOR F=1 TO 68 
READ B: READ C 
A(B,C)=2 
NEXT F 

=-15 


TEXT 
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844 
ase 


PAPER 2: 
RETURN 


INE 


) 


860 REMEXKEEXKDATA BLOCKHKKKXKKEKX 


DATA 2,25 25 rg ey Fn Sg 55 En On Zy7 


878 
88a 
89a 
968 


2008 
2016 
2020 
2030 


ag 


DATA Ba Fn Fa 7a Sg 79s On Sy yy Ags Sn Oy S 
DATA 7a 2a 7a Fa Ta Sig Fu Og oa Fa 759 Bn 75759788 
DATA 9.,9,19,8,10,7,19,6,10,5,19,4,8, 


DATA 10,23,11,7,12,7,12,7,14,23,14,2,7 


DATA 6,10,5,10,4,10,%, 10,2,10.2,11,2 


DATA 2,1 


rT 


“ase 


14,6,11,6,12,6,12,6,14,7 


DATA 14,12,9,12,8,14,9,12,1%,9,14,1 


DATA 11,9, 11,10, 11,121,411, 12,12. 9,13; 
9.12,10 
96@ DATA 12,11,13,12,13,12,13.14,14,14 
REMAX4k% UDG xe KxK 


2@40 RETURN 


FOR F=46359 TO 46346 
READ N:POKE F,N:NEXT P 
DATA 63.63, 63, 63,62, 63, 62, 63 
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FOURRRRR! 


A familiar cry to all golfers, this game puts you on the first tee 
of a putting course which lasts for nine holes. The green is 
displayed graphically with the hole, flag and golfball plotted 
onto the screen. You must estimate the strength of shot 
needed to hole the ball. Any strength figure outside of the 
limits (1-36) is rejected and a new one asked for. If you hit the 
ball off the screen then you are out of bounds, your score is 
increased by three and your ball is placed back on the tee. 
There is a small random element within the game (any golfer 
will tell you that two shots hit with the same power do not often 
end up with the same result). If you get a hole in one, a special 
congratulations routine is called (lines 500-530). If you pass 
the hole with a strong shot, ie the ball is to the right of the hole, 
then enter a minus sign before the strength figure. 


At the end of the game, your score card is displayed together 
with the number of shots over or under par (par is two shots 
per hole, 18 for the complete course). 
Happy golfing! 
1@ REM*X***xxFOURRRAR ! #kx*x* 
2® CLS: FAFERS: INK ©: GOSUB 908 
2@ X=1:S5=0:G=@:DIM H(9) 
90 R=INTCRND(1)*19)4+19:6=6+1 
95 CLS:IF G?9 THEN GOTO 798 
97 FRINT:FRINT 
1@@ PRINT TAB(24)"FOURRRRER!":FOR P=1 TO 
9:PRINT: NEXT F 
LO. (PRIN Sea SS See Sasa 


25 PLOT-R,13." “:PLOT F,12,." * 
12@ PLOT R+i,ii,"!"2:PLOT F+i,1@,"i>" 
15@ PLOT X-1.11.CHR#(7)4+"o0"+CHRS (0) 
14@ IF X=R THEN GOTO 4a@ 
17@ PRINT:FRINT:PRINT"HOLE NO.":G:" SHO 
TS TAKEN SO FAR ":S 
175 PRINT:PRINT"SHOTS TAKEN ON THIS HOLE 
"s4(G) 
19@ PRINT: INPUT"SHOT STRENGTH (1 TO 26>" 


19@ IF N>Z6 OR N¢-Z6 THEN 180 
20@ X=X4+N:1F X27 OR X<1 THEN GOSUE 25a 
2a? IF ABS(R-X}<42 THEN 21a 

SOS X=X+INTCRND (1) #2) -INT CRND (1) %2) 

21 H(G)=H(G)+1:GOTO 95 

250 REMKK*X*OUT OF BOUNDS kt x4 

Z6@ PRINTIPRINT:PRINT"SORRY SIR. BUT YOU 
R BALL IS NOW QUT OF" 

27@ PRINT"BOUNDS! YOU RECIEVE A = SHOT F 
ENALTY":H(G) =H(G) +2 

28@ SOUND 1.270@@,9:WAIT 25@:PLAY 6,0,0,6 
:X=1:RETURN 

4@Q REMEXKKKHOLED SHOTH KEKE 

4@5 PLOT R+i,ii."!" 
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414 WAIT S@:PLOT X,11," "WAIT S@:PLOT x 
2i2,"o":WAIT S@:PLOT X.12." 


420 WAIT S@:PLOT X.12."o0" 
472@ FOR T=40@ TO 100 STEP-28 


44@ SOUND 1,.7,9:WAIT 1@:NEXT T 
450 FOR T=1 TN 7:PAPER TiWAIT 4@: FING: NE 
4PUF 


469 PRINT: PRINT: PRINT TAB(24) "GREAT PUTT 


in 
465 IF 4(G)=1 THEN GOTO Sae 

474 PRINT: PRINT"YOU TOOK "sH(G3:" ON THA 
T HOLE" 

4R8@ PAPER 2: WAIT 2@@:X=1:S=S+H(6):GOTO 9 


Be) 


REM**xHOLE IN ONEXx* 

@5 WAIT 150 

CLS:FOR T=1 TO 22:PRINT TAB(12+T) "HO 

LE IN ONE!" 

S2@ MUSIC 1,3, (T/2)4+1,@:PLAY 1,0,1, 1000: 

WAIT 2a 

520 NEXT T:WAIT 20@:GOTO 48@ 

70@ REM*X*K*KEND OF GAME KKKEX 

72 CLS 

71@ PRINT:PRINT TAB(Z1)"S CORE cA 
Rk Dp" 

7i5S PRINT: PRINT 

72@ FOR G=1 TO 9 


an on 
> 
& 


th 
re 
oo] 
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72z@ PRINT"HOLE NO.";S:" SHOTS TAKEN “3H 
(6):PRINT 

740 NEXT & 

75@ PRINT:IPRINT"A TOTAL OF ":S; 

76@ P=19-S:IF SGN(P)=-1 THEN PS="QVER" 

77@ IF SGN(F)=1 THEN F="UNDER" 

78@ IF F=@ THEN GOTO 82e 

79@ PRINT:PRINT:PRINT"THAT IS ":ABS(F):" 
"SPe:" PAR." 

BO® SOUND 1,15@,8:WAIT 10@:FLAY @,@,0,0 

21@ END 

820 PRINT:PRINT:PRINT"THAT IS EQUAL TO F 

AR.":SOUND 1,15@,8:WAIT 100 

92@ PLAY ©,4,@,@:END 

200 REM**kKk UDG?s **x* 

91@ FOR F=4644@ TO 46447 

92@ READ N:FOKE P.N:NEXT F 

92@ DATA 62,62. 63, 62,63, 62,63, 62 

94@ RETURN 
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BINGO 


Everybody has played Bingo at some time or other. Be it at a 
party or down at the seaside, it is one of Britain’s major games. 
In this program, the computer acts as Bingo caller thus 
releasing you to play the game. The numbers are displayed on 
the Hi-Res screen and are large enough for everybody to read. 
The computer randomly chooses numbers which are then 
displayed on the screen. Before the number is displayed, the 
computer checks to see if it has already been called. If this is 
so, it forgets that number and generates another one. 


I’ve used numbers between one and 99 which, as far as | know, 
are the standard range of figures used in Bingo. However, if 
your Bingo set is different, you can change line 70 to the 
number of numbers wanted and then change lines 60 and 80 
accordingly. 


If you have a Bingo set, then press any key on the keyboard 
and the computer will print all the numbers called so that you 
can check your card. It will then offer another game. 


All lines up to line 2@ print the large size ‘BINGO’ on the 
screen. Lines 60 to 170 are the core of the program, producing 
the random number, checking it, moving the cursor on the Hi- 
Res screen if the number is a single figure, and providing all 
the other vital work. 


Lines 190 to 330 come into play when Bingo has been called or 
when every number has been called. 


The bulk of the program (from line 1080 onwards) draws the 
numbers which appear on screen. The Oric’s graphics 
commands are powerful but they do consume a lot of 
memory. 
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Study the program and as a result, why not try to write a 
program which will display large-scale letters when that letter 
is pressed on the keyboard. You could then modify this new 
program into something which could form the basis of a 
young child’s spelling game. 


10 REM*X*XXBINGOKE KX 
15 CLS:FPRINTsPRINT"XXxKXK x x x 
KEXKX KEKKK KX" 


16 PRINT"K *£& *k xk k # x 
kx" 

17 PRINT"*444e ok ok Kk OF KK 

* x" 

18 PRINT"K *& kk *& xk * * 
*" 

19 PRINT REEK kK ROR ORK 
kx" 

2@ PRINT: PRINT: PRINT" Press a k 


ey to start." 

36 GET AS:N=-1:DIM R(9@) 

5® HIRES:PRINT: PRINT" To call Bingo, 
press any key." 

6@ N=N+1: IF N=88 THEN 190 

7® R=INT (RND (1) *9@)4+12R(N)=R 

72 IF N=@ THEN 8@ 

75 FOR T=@ TO N-1: IF R(TI<>R THEN 77 E 
LSE GOTO 7® 

77 NEXT T 

B@ R&=STRH(R) 

90 RLS=LEFTS (RS, 2) s RRS=RIGHTS (RS, 1) 
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95 IF LEN(R®)<Z THEN 120 
10® RL=VAL (RIGHTS (RL#,1)):X=3@: Y=5@:CU 
RSET X.Y.@ 

105 RL=RL+1 

119 ON RL GOSUB 1000, 1030, 1060, 1090, 11 
2@,115@, 1180, 121, 1240,1270 

120 RR=VAL (RRS) :X=120: Y=5@ 

130 RR=RR+1:CURSET X,Y.@ 

14 ON RR GOSUB 1000, 1030, 1060, 1090, 11 
20, 115@, 1180, 1210, 1240,1270 

15@ PING:WAIT 350 

170 IF KEY$="" THEN GOTO Se 

199 TEXT:FAPER 1:INK 7:CLS 


200 PLOT 18,160, "BINGO!" 
® SOUND 1,150@,7:WAIT 20 


21 
22@ PLOT 18,10, "~----- " 

=@ SOUND 1,.86.8:WAIT 20 

249 PLOT 8,.25,"PRESS A KEY" 

250 IF KEY$="" THEN GOTO 20@ 

26@ CLS: INK 7:PRINT:PRINT:PRINT TAB(24 
)"NUMBERS CALLED WERE" 

27@ PRINT: PRINT: PRINT 

280 FOR F=@ TO NzPRINT R(F)s"  "3=NEX 
TF 

21 PRINT:PRINT:PRINT TAB (24) "ANOTHER 
GAME?" 

=2@ GET AS: IF AS="Y" THEN RUN 

220 END 
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10@@ CURSET X,Y,9:DRAW ©,100,1:DRAW 40 
,%,1:DRAW @,-10@,1:DRAW —60,2 

| 

101@ CURSET X+10,Y+10,@:DRAW ©,80,1:DR 
AW 4@,0,1:DRAW @,-8@.1:DRAW — 

40,0,1 

102@ RETURN 

1@Z@ DRAW @,100,1:DRAW 20,0,1:DRAW 0, - 
100.1: DRAW -20,@,1:RETURN 

194@ DRAW 6@,0,1:DRAW @,4@,1:DRAW —5o, 
5@,1:DRAW 5@,0,1:DRAW @,1.1: 
DRAW-60,@, 1 

107 DRAW @,-10,1:DRAW 5@,-50,1:DRAW @ 
,-2@,1:DRAW —5@,0,1:DRAW @,-1 
®,1:RETURN 

1@9@ DRAW 6@,0,1:DRAW @,100,1:DRAW —40 
,9,1:DRAW @,-10,1:DRAW 5@,0,1 

110@ DRAW @,-25,1:DRAW —40,0,1:DRAW 2, 
-1@.,1:DRAW 40,0,1:DRAW 0,-35, 

1 

111@ DRAW -5@,@,1:DRAW ©,-10,1:RETURN 
112® RESTORE:FOR A=1 TO 14:READ C,.D:DR 
AW C,D,1:NEXT A 

113@ DATA 10,0, 0,72, 20,0, 0, -20, 10,2, 2, 
20, 20,0,8,10,-20, 0,0, 20 

114@ DATA -10,0,0,-20,-30,.0,0,-80:RETU 
RN 

115@ DRAW 6@,0,1:DRAW @,10,1:DRAW —5a, 
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@,1:DRAW ®,25,1:DRAW 50,@,1:D 

RAW @,55,1 

116@ DRAW -460,0,1:DRAW ®,-10,1:DRAW 5o 
,%,1:DRAW @,-25,1:DRAW —50,0, 

i 

117@ DRAW @,—-55,1:RETURN 

1180 DRAW 6@,0,1:DRAW 0,10,1:DRAW —5e, 
@,1:DRAW ©,2@,1:DRAW 50,@,1 

1185 DRAW @,60,1:DRAW —460,@,1:DRAW 6,- 
10,1: CURMOV 10,50,0:DRAW 40, 

®,1 

119@ DRAW @,40,1:DRAW —40,0,1:DRAW 0, - 
40, 1: RETURN 

1210 DRAW 60,0,1:DRAW @,10@,1:DRAW —40, 
90,1: DRAW-10,@,1:DRAW 40@,-90, 

1 

122@ DRAW —5@,0,1:DRAW ®,-10, 1: RETURN 

124@ DRAW @,100,1:DRAW 460,@,1:DRAW @,- 
10@,1:DRAW -60,0,1:DRAW 10,10 

.@ 

125@ DRAW @,25,1:DRAW 40,0,1:DRAW @,-% 
5,1:DRAW —4@,0,1:CURMOV @, 45, 

@ 

126@ DRAW @,35,1:DRAW 40,0,1:DRAW @,-= 
5,1:DRAW -40,0,1:RETURN 

127 DRAW 60,0,1:DRAW 0,100,1:DRAW -120 
,9,1:DRAW @,-5@,1:DRAW -50,0, 

1 
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128@ DRAW 0,-5@,1:CURMOV 10,10,0:DRAW 
40,@,1:DRAW @,20,1:DRAW —40,@ 

4 

129@ DRAW @,-3@, 1:RETURN 
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MOPONOLY 


A mammoth game this, the longest in the book, which plays a 
good version of the famous real estate board game. If you 
have played the game before, just think of all the knowledge, 
decisions, encounters and happenings in the game and now 
add to that the strategy of one player, and the result you getis 
approximately what the computer has to do. You can also add 
the tasks of processing the other player’s response, screen 
formatting, generating the dice throws, Chance and Com- 
munity Chest cards and a whole host of other mundane 
chores. With the computer busy, you are left free to enjoy the 
game. 


You and the computer, then, battle it out for control of the 
streets of London. Once you have decided upon a site’s 
condition, be it empty, with one house or so on, thatis the way 
itstays inthis version. Therefore, you must be that more aware 
of your strategy as any decisions made in this area cannot be 
undone. 


This game features Go To Jail, Chance and Community Chest 
cards and a novel twist to Free Parking which you will see if 
you play the game. As normal, you receive an extra £200 for 
passing Go which can easily be deducted from your total cash 
if you land on Income Tax. 


Times have changed since Monopoly was first invented in the 
U.S. in the thirties. Allowing for inflation, the cash you start off 
with is much higher than the board game’s funds. However, 
the rent you may have to pay if you trespass on the computer’s 
property is far higher than the original costs so one thing 
evens the other out. 
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As there are only two of you playing, you throw a single dice to 
move around the board. The computer checks to see if you 
have landed on one of the unbuyable properties, eg Super 
Tax, and if not allows you to consider buying it. If you do buy 
it, the computer then checks to see that the property has the 
capability for building on (for example, the stations, Water 
Works and Electric Company do not). If it does, itasks you for 
the number of houses you would like to build, and if that is 
four, would you like a hotel. Answer ‘Y’ to this if you want to. 


The computer then makes its move, deciding whether to buy a 
site and if it does, how many houses to build on it. If either of 
you land on one of the unbuyable properties, the computer 
goes to a separate routine to deal with the situation. Every 
eight moves you will be shown the properties that you and the 
computer own. This routine is contained in lines 1600 to 1800. 
| have left some line space there so that if you want to you can 
add the facility to be able to change the number of houses on 
each item of property. 


The various sounds made in the gamecan be attributed to line 
4000 and beyond. Lines 1300 to 1420 end the game with either 
you or the computer winning—in this game, there are no 
draws only a winner and a loser, so be warned! 


Good luck and happy house-hunting! 


19 REMAX XX AMOPONOLY KK ERR ERK 
3@ CLS:PAPER 4: INK 7 

35 CLS 

4® PLOT 15,2, "MOPONOLY" 

S@ PLOT 14,3, "---------- : 

SS GOSUB 4120 

6@ PLOT ®,4,"HELLO THERE!" 

65 FOR T=1 TO S:PRINT"":NEXT T 

8@ DIM BS(8e) 

9@ FOR A=1 TO 4@:READ BS(A):NEXT A 
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190 DIM P#(40),CFS(4O) ,V (40) ,PR(4@) , CRC 
4®) 

11@ GOSUB S1is5e 

120 M=900@: CM=9000: P=1:CF=1 

120 REM*XXXXXXMAIN LOOPXKXKXKX 

132 PAPER ©: CNT=CNT+1i:IF CNT=8 THEN CNT 
=@:GOSUB 146@@:PRINT: PRINT 

132 PRINT"Press a key to roll the dice. 
125 GET AS: PAPER 4:GOSUB 412@ 

14@ D=INT(RND(1)*6)4+1:FP=F+D 

142 PRINT:PRINT:FRINT"DICE ROLLS: "3D 
142 GOSUBR 4000 

147 IF P>4@ THEN FP=P—-40:M=M+200:GOSUB 2 
HQ 

156 F=0:IF BS(P)="GO" THEN 45a 

16 IF BS(P)="COMMUNITY CHEST" THEN 776 
176 IF BS(P)="INCOME TAX" THEN 95a 

186 IF BS(P)="CHANCE" THEN 98a 

19@ IF BS(P)I="JAIL" THEN 1140 

200 IF BS(P)="FREE PARKING" THEN 1198 
210 IF BS(P)="G6O TO JAIL" THEN 1246 

220 IF BS(P)="SUPER TAX" THEN 1270 

220 PRINT:PRINT"You land on “"3BS(P)3" w 
orth" 

240 PRINT" "sVCP) 

25@ IF CPS(P)=BS(P) THEN 428 
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260 IF BS(P)=P$(P) THEN FPRINT"You own " 
:BS(F):s GOTN 45e 

27@ PRINT:PRINT:PRINT"Will you buy ";BS 
(P)e" P"sGET XS 

280 IF X#="N" THEN 450 

285 FRINT 

290 PRINT"Fine, that will be —"3V(P) 
Z@Q@ M=M-V(P)SPR(PI=V CP) /10:P8(P)=BS (CP) 
210 IF RIGHTS(BS(P),7)="INON" OR BS( P=" 
WATER WORKS" THEN 450 

315 IF BS(P}="ELECTRIC COMPANY" THEN 45 
® 

220 PRINT:PRINT“Will you build on ";BS¢ 
PY:GET XS 

23@ IF X$<>"¥" THEN 450 

235 PRINT 

Z4@ INPUT"How many houses";N: PRINT 

35@ IF N<4 THEN GOTO 780 

355 IF N>4 THEN PRINT" You must be jok 
ing! !!"sPRINT:PRINT:GOSUB 420 

@:GOTO 3406 

24@ INPUT "An hotel as well ";AS 

=7@ IF LEFT#(AS$,1)="Y" THEN N=S 

28@ PR(P)=PR(P)+(V (FP) XN) 

290 M=M- (200xN) 

295 FRINT 

400 PRINT"Good"sFOR A=i TO 10@6:NEXT A 
41 GOTO 458 


130 


426 PRINT: PRINT"You are trespassing on 
my property. “:PRINT:FRINT" 

FAY =: "3 
42@ PRINT" "sCR(P) sM=M-CR (FP) s CM=CM+CR(P 
) 
4AZS PRINT: PRINT 
446 PRINT"Thankyou very much! !'!":PRINT 
45@ PRINT: PRINTSPRINT"You now have _“sM 
:PRINT 
460 PRINT"! have _—"sCM: PRINT 


47@ PRINT" ------—-—-—--~--~---------------- 
472 GOSUB 4@5e 

475 FOR T=1 TO 16@@:NEXT T 

48@ IF M¢@ THEN 1260 

49@ IF CM<@ THEN 1250 

S@O@ PRINTSPRINTSFPRINT'MY SHOT" 

545 PAPER 1:PRINT:FRINT 

316 CP=CP+INT(RND(1)*4)+1 

S20 F=i:IF CF>4@ THEN CP=CF-40:M=M+200: 
GOSUB 2000 

530 IF BS(CP)="COMMUNITY CHEST" THEN 77 


S40 IF BS(CP)="INCOME TAX" THEN 95a 
35® IF BS(CP)="CHANCE" THEN 980 

360 IF BS(CP)="JAIL" THEN 1148 

S7@ IF BS(CP)="FREE PARKING" THEN 119@ 
S@® IF BS(CP)="GO TO JAIL" THEN i24e 
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390 IF B&(CP)="SUPER TAX" THEN 1270 
60®@ IF PS(CP)=BS(CP) THEN CM=CM-PR(CP): 
M=M+PR(CP):PRINT"IT trespass 

on “;BS(CP) 


61@ IF P#(CP)=BS(CP) THEN 726 
62@ IF V(CP)=@ THEN 720 


620 IF BS(CP)=CPS(CP) THEN 72 

64@ PRINT"T landed on “"sBS(CF) 

645 IF BS(CP)="GO" THEN 720 

656 IF CM/V(CP)<1@ OR CM<1@@®@ THEN 720 

66@ N=INTCRND (1) *5)41 

665 PRINT: PRINT 

67 IF N=5 THEN PRINT"T buy “3; BS(CP) 

4686 IF RIGHTS(BS(CP),1)="N" OR BS(CF)=" 

WATER WORKS" THEN 710 

685 IF BS(CP)="ELECTRIC COMPANY" THEN 7 
1@ 

690 IF N=5 THEN PRINT"with 4 houses and 
1 hotel.":GOTN 710 

700 PRINT:PRINT"T buv “s;BS(CP):PRINT"wi 

th “"sN:" house/s" 

710 CR(CP)=(V(CP) /1@) = CR(CP) =CR (CP) + (Nk 


200) = CPS (CP) =B$ (CP) 
72@ CM=CM-V (CP) : CM=CM- (Vv (CP) &N 
73@ PRINT: PRINT"~—--~---~---~---------- 


725 GOSUB 4@5@: WAIT 35e 
740 PRINT: PRINT: PRINT: PAPER 4:GNTON 12@ 
77@ IF F=@ THEN AS="You":V=M 
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773 PRINT: PRINT 
78@ IF F=t THEN As="I"2V=CM 
79@ PRINT As" land cn Community Chest. 


86@ C=INTCRND (1) "5341 

819 IF F=@ THEN M=¥V 

Bi= IF F=1 THEN CM=V 

817 PRINT: PRINT 

@® ON C GOSUR 860, 884, 906, 920,946 

82@ IF F=i THEN CM=V 

Bz5 IF F=@ THEN M=V 

840 IF F=1 THEN 7za 

85@ IF F=@ THEN 45@ 

846@ PRINT ASs" inherit _1@@.":VY=V+1aa 
87@ RETURN 

88@ PRINT At: " have won a beauty contes 
LIVSPRINT TABR(Z4) "Collect —% 

A" sV=V+e@ 

89@ RETURN 

90@ PRINT"Bank error. "s3ASs" collect _2 
GO, "2V=V+200 

91@ RETURN 

920 PRINT At:" have to pay _5@ for insu 
rance!"sV=V-5a@ 

928 RETURN 

94@ PRINT"Annuity matures. "“":A#s" colle 
ct 75." V=V4+75 

945 RETURN 
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95@ PRINT: PRINT 

955 IF F=@ THEN PRINT"Ha Ha. pay _20@ i 
ncome tax. ":M=M-2oe@ 

976@ IF F=1 THEN PRINT"Blast! I have to 
Pay _2@@ income tax !":CM=CM- 


2a@ 


770 GOTO 84@ 
98@ IF F=@ THEN AS="You":V=M 


990 IF F=1 THEN A$="I"2V=CM 

995 PRINT:FRINT: PRINT AS;" have landed 
on CHANCE...." 

997 PRINT:FRINT:WAIT zeae 

999 PRINT: PRINT 

1@@@ C=INTCRND(12*5)4+12TF C=5 THEN 1148 
1@1@ ON C GOSUB 164@,196@,1090,1120 
1@15 PRINT: PRINT 

1@26 IF F=@ THEN M=V 

1@22 IF F=1 THEN CM=¥V 

1@7@ GOTO 84e@ 

1046 PRINT AS;" won a crossword competi 
tion." 

1445 PRINT AS:" recieve _1@@.":2V=V+10@ 
1@5@ RETURN 

1960 PRINT ASs" must go back 2 spaces!" 
1@7@ IF F=@ THEN F=F-2 ELSE CF=CP-2 
1@8@ RETURN 

1490 PRINT"Advance to Mayfair. Yipee!!! 
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1995 GOSUBR 4100 

1i@@ IF F=@ THEN ©=4@ ELSE CF=40 

1110 RETURN 

112@ PRINT AS;" Have been speeding agai 
n. Lose _15":V=V-15:GOSUB 4@ 


117@ RETURN 
146 IF F=@ THEN FRINT"Go to JAIL. Do n 
et pass GO.":GOSUB 4@@@:G0TO 


115@ IF F=1 THEN FRINT"'I must go to JAI 
L. Oh dear.":GOSUB 4@@@:COTO 


8) 


116@ IF F=@ THEN FPRINT"You’re not in JA 
IL, just visiting.” 

117@ IF F=1 THEN PRINT"T*m net in JAIL, 
anly visiting." 

118@ GOTO 84a 

119@ PRINT: PRINT 

1195 IF F=0 THEN INPUT"Do you wish to p 
ark here ?"s;KS 

120@ IF F=1i THEN PRINT"I will not park 

here.":GOTO 840 

121@ IF LEFTS(k%,1)="N" THEN PRINT"Wise 
choice": GOTO 840 

122@ PRINT"After you parked, thieves st 
Ole your vehicle and all yo 


ur gains." 
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1225 PRINT:PRINT" You should not have p 

arked there." 

1227 GOSUB 4200 

1278 FOR T=1 TO 2000:NEXT T 

1220 WAIT 5@®:GOTO 840 

124@ IF F=@ THEN FRINT"Ycu’re in JAIL. 
Tt costs _5@ to be releas 
ad.":M=M-Se 

1245 IF F=@ THEN FH=21 

125@ IF F=1 THEN PRINT"I?m in JAIL. Boo 
Hoo !":CM=CM-Se@: CF=21 

126@ GOTO 84a 

1270 IF F=® THEN PRINT"You must pay Sup 
er Tax at _1600":M=M-100 

1280 IF F=i1 THEN PRINT"I must pay Super 
Tax at _10@. Yuk!":CM=CM-10 

@ 

1285 GOSUB 4200 

129@ GOTO 840 

130@ PAPER @: INK 1:CLS 

1305 PLOT 4,10,"YOU HAVE NO MONEY, YOU 

LOSE" 

1307 GOSUB 4600 

1210 FOR T=1 TO 1@@@:NEXT T 

1320 INPUT"ANOTHER GAME"; AS 

132@ IF LEFTS(AS,1)="Y" THEN RUN 

1240 PING: FING: END 

135@ PRINT"BOO! HOO! I LOST." 


1355 GOSUB 4000 
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1346@ CLS: INK 3:PAPER @ 

137@ PRINT: PRINT:PRINT" I just could 

not beat you. I tried my bes 

t but I" 

138@ PRINT"was outclassed by a superior 
player." 

1390 PRINT: PRINT: PRINT" You had _"sM; 
"at the end of the game." 

1400 PRINT: PRINT: PRINT"333333333333333W 
ELL DONEC ICL CLC £fCf C4" 

142@ FOR L=1 TO SsFOR Z=1 TO 7: INK Z:WA 
IT S@:NEXT Z:NEXT L:sGOTO 132 

@ 

160@ REMX#KXKPROPERTY DISFPLAYXKXKE 

161® CLS:PRINT:PRINT"You own: "3; 

162@ FOR P=1 TO 40: IF PS(P)<>"" THEN PR 
INT TAB(24)P$(P) 

1625 NEXT P 

1630 PRINT: PRINT" Fress a key to 

continue":GET AS 

164@ CLS:PRINT:PRINT"I own: “3; 

165@ FOR CP=1 TO 4@:1IF CFPS(CP)<>"" THEN 
PRINT TAB(22) CPS (CP) 

1655 NEXT CP 

166@ PRINT:PRINT"Press any key to conti 
nue the game":GET AS: CLS: RET 

URN 

180 RETURN 
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20@0@ PRINT: FPRINT"You passed GO. collect 
_20@." 

201 FRINT: RETURN 

4@e@ FOR T=14@@ TO 40@ STEF 2a 
4416 SOUND 1.,T,8 

4@20 WAIT 26 

402@ NEXT T 

4035 WAIT 128 

4@4@ PLAY @,4,9,@ 

4045 RETURN 

4@5@ FOR T=24@ TO 15 STEP-15 

49460 SOUND 1,7T,8 

4070 WAIT T/9 

488 NEXT T 

4992 PLAY 6,0,9,9% 

4095 RETURN 

410@ SOUND 1,90,8 

4118 WAIT 100 

4120 PLAY 0,0, 0,0: RETURN 

412@ FOR T=100® TO 460 STEP-20 

414@ SOUND 1,7T,® 

415@ PLAY 7,@,1, 2000 

4146@ WAIT 18 

4170 NEXT T 

418@ PLAY ©,0,0,0 

420@ SOUND 1,2300,15 

4215 WAIT 100 

4220 PLAY 6,0,0,6 
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4240 RETURN 
5@@@ DATA "GO", "OLD KENT ROAD", "COMMU 
NITY CHEST", “WHITECHAPEL RO 
AD" 
3@1@ DATA "INCOME TAX", "KING’S CROSS S 
TATION", "ANGEL, ISLINGTON" 
5@2@ DATA "CHANCE", “EUSTON ROAD", "FEN 
TONVILLE ROAD", "JAIL", "PAL 
L MALL" 
S@Zz@ DATA "ELECTRIC COMPANY", "“WHITEHAL 
L", “NORTHUMBERLAND AVE" 
3@4@ DATA “MARLYEBONE STATION", "BOW ST 
REET". “COMMUNITY CHEST" 
305@ DATA "MARLBOROUGH STREET", "VINE S 
TREET", “FREE PARKING", "STR 
AND" 
5@6@ DATA "CHANCE", "FLEET STREET", "TR 
AFALGAR SQUARE", "FENCHURCH 
STATION" 
570 DATA "LEICESTER SQUARE", "COVENTRY 
STREET", "WATER WORKS", “FI 
CCADILLY" 
5@8@ DATA "GO TO JAIL", "REGENT STREET" 
"OXFORD STREET", “COMMUNIT 
Y CHEST" 
3@99 DATA “BOND STREET", “LIVERPOOL ST. 
STATION", “CHANCE", "PARK L 
ANE" 
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510@ DATA “SUPER TAX", "MAYFAIR" 

515@ FOR A=1 TO 40:READ V(A):NEXT A 
517@ RETURN 

520@ DATA ©, 60,0, 60, O, 200, 100, 0, 100,120 
+9, 14, 150,140, 140, 200, 180,90 

. 180, 200,0 

521@ DATA 220, 0,220, 240, 200, 260, 260, 150 
, 2B@, @, 300, 00, O, 320, 200,20, 3 

50,2, 420 
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TRAVELLING TRIANGLES 


This program is a development of Jeremy Ruston’s Spinning 
Triangles program for the Sinclair Spectrum and the BBC 
micro. The effect produced by this program is quite startling 
and worth the short time it will take to type in. 


| have really just added some frills to it to make it that bit more 
enjoyable. Once the program is running, it should give the 
effect of triangles moving around the screen and rotating on 
one axis. The shapes left behind may givea three-dimensional 
effect, but what is quite certain is that two screenfuls will never 
be exactly alike. 


Pressing the ‘S’ key while the program is running pauses the 
display until you press the ‘S’ key again. Pressing the less 
than key, ‘<’, will change the colour downwards from colour 
code ‘7’ to ‘1’, while pressing the greater than key, ‘>’, will 
perform the opposite. The effect of the triangles in different 
colours is quite beautiful. If the screen gets too crowded at 
any time, by pressing the spacebar, you clear the screen and 
set the process off again. To quit the program, press the ‘Q’ 
key. 


The program uses a REPEAT/UNTIL loop for the main 
drawing. 

1@ REM*k*x TRAVELLING TRIANGLESX**k 

20 REM*XXKXEXGIFFORD/RUSTONKX KX KX 

30 G=7:HIRES 

35 PRINT: PRINT TAB(17) "TRAVELLING TRIANG 

LES ";sCHR#(94);" 1983" 

4@ L=INT(RND (1) *24@) 
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te on 
tA] 3 


“ad 
Do) 


M=INT (RND (1) k2@0@) 
N=INT (RND (C1) *24@) 
O=INT CRND (13 *200) 
F=INT C(RND(1)*24@) 
Q=INT (RND (1) &20@@) 
A=INT CRND (C1) *8) 
B=INTCRND(1)*9) 
f=INT CRND(1)*8) 
D=INT (RND(C1)%*8) 
E=INT (RND (1) #8) 
F=INTCRND(1)*9) 


a REPEAT 


CURSET L.M, 
INK G 


DRAW N-L, Oo-M, 1 
DRAW F-N,Q-0O,1 
DRAW L-F,M-O, 


IF L+A>229 
IF M+B>199 
IF N+C>229 
IF 0+D>199 
TF) PE 5259 
IF Q+F3199 
L=L+A:M=M+B 
N=N+C:0=0+D 
P=P+E:Q=Q+F 


QS=KEYS$: IF O¢<>"" 


UNTIL FALSE 


1 


OR 
OR 
OR 
OR 
OR 
OR 


L+AC@ 
M+B<@ 
N+0<@ 
O+D<a 
PtE<@ 
Q+F<@ 
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THEN 
THEN 
THEN 
THEN 
THEN 
THEN 


A=-A 
B=-B 
c=-c 
D=-D 
E=-E 
F=-F 


THEN 250 


GOTN 140 

REMK* KOPT IONS KX 

IF Q¢="S" THEN 4@@ 

IF O¢="." AND G¢7 THEN G=6+1:GOTC 71 
IF Q¢="," AND G>1 THEN G=G-1:60TO0 21 
IF Q¢="" THEN WAIT 1@0:PING:RUN 

IF O¢="Q" THEN END 

GOTO =1e 

as="" 

AS=KEYS 

IF Q$="S" THEN 210 

GOTO 4e5 
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SEQUENCE 


In this program, the computer displays the numbers from zero 
to nine in a random order. Your task is to unscramble the 
numbers and put them into the sequence ‘0 123456789’ in 
as few moves as possible. This is done by either reversing the 
whole sequence or just a part of it. For example, the computer 
generates ‘7354098621’. It will then ask you to ‘REVERSE 
NUMBER?’. Entering ‘1’ would reverse the entire sequence to 
read ‘1268904537’. Entering ‘5’ would then reverse the 
numbers from the fifth figure onwards, ie ‘1268735409’. 


Sounds simple, doesn’t it? Frankly, |am terrible at this game. 
My best effort was. 13 moves which is pretty awful—l’m sure 
that you can do much better. Try to aim for ascore around 10, 
anything below that being excellent or at least very lucky! 


There is nothing remarkable about the game from a program- 
ming point of view. The routine from line 500 onwards plays 
the small tune. The notes are stored in a DATA statement, the 
only efficient way of holding enough information to producea 
tune. Line 303 raises the same tune two octaves when you 
complete the game. This saves memory space compared to 
having a separate routine to play the higher tune. While your 
computer has been gifted with a vast quantity of memory, it is 
always sensible to write a program tidily and orderly in a 
manner which will save memory. If you do this, you will find 
that the program will run easier and the techniques learnt will 
be valuable when you start writing programs which come 
close to your computer’s memory limits. 


Getting back to this program, you will find following this piece 


a sample run of the program in which after many trials and 
tribulations, | managed to solve the puzzle. 
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MOVE NO.1 =: 9262051748 


REVERSE NUMBER 
~ 


MOVE NO.2 : 9262058471 


REVERSE NUMBER 


1 


MOVE NO.2 = 1748502629 


REVERSE NUMBER 


9 


MOVE NO.4 = 1748502692 


REVERSE NUMBER 


2 


After much consideration (and many wrong moves!) here is 
the final portion of the game. 
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MOVE NO.11 : 1234508967 


REVERSE NUMBER 


9 


MOVE NO.12 : 1274508976 


REVERSE NUMBER 
& 


MOVE NO.12 : 1224547980 


REVERSE NUMBER 
3 


MOVE NO.14 =: 1224567089 


REVERSE NUMBER 


9 


MOVE NO.15 s 1224567098 


REVERSE NUMBER 
8 
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MOVE NO.16 : 12745479890 


REVERSE NUMBER 
1 


MOVE NO.17 : @9876547221 


REVERSE NUMBER 


") 
= 


81224546789 
YOU DID IT!!! 


IT TOOK 17 MOVES 


1@ REMk&*xSEQUENCEX&*k 
2@ CLS 

25 INK @ 

2@ PAPERS 

25 PLOT 16,9, "SEQUENCE" 

36 PLOT 15,10, "---------- " 

4@ M=1:2X=O:As="" 

5@ FOR T= TO 9 

6@ L=INT(RND(1)*10)+48 

7® Q=1:S=2 

8® IF MID$(A$,Q,1)=CHRS(L) THEN 6@ 
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9@ IF Q<T THEN Q=Q@+1:G60TO 8@ 

1@@ AS=AS+CHRS (Ld 

11@ NEXT T 

120 GOSUB 5ee 

125 PAPER 3 

12@ PRINT: PRINT: PRINT TAB(S) "MOVE NO." 
gsMs"s "SAS 

15@ PRINT: PRINT"REVERSE NUMBER "5; 
160 INPUT R:IF R<i OR R>9 THEN 160 
170 BS="" 

18@ FOR T=16 TO R STEF-1 

19@ BS=BS+MID$ (AG,T,1) 

208 NEXT T 

21@ AS=LEFT$(AS,R-1)+BS 

220 IF At$="@1234546789" THEN 240 
22@ M=M+1:GOTO 120 

24@ FOR T=1 TO 1@@@:NEXT T 

245 CLS 

20@ FAPER 1: INK 7 

26@ PRINT: PRINT: FRINT: PRINT 

27@ PRINT TAB(12) AS 

28@ PRINT: PRINT: PRINT 

285 PRINT"YOU DID IT!!!" 

298 PRINT: PRINT 

20@ PRINT " IT TOOK "sMs" MOVES" 
302 WAIT 408 

302 S=4 

305 GOSUB ee 


148 


319 
3208 
3.38 
340 
398 
518 
328 
S28 
335 
5348 
ber bend 
368 
57@ 
38a 
385 
587 
598 


PLOT 6,18,"To replay press *S’" 
GET S& 

IF S$<>"S" THEN GOTO 220 
RUN 

FOR N=1 T0 8 

READ D 

MUSIC 1,5,D,8 

PLAY 1,0,1,10000 

PAPER N-1 

WAIT 25 

PLAY ©,9,0,4 

NEXT N 

PAPER 1 

DATA 1,2,5.14,8,6,5,5 
RESTORE 

CLS 

RETURN 
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SOLITAIRE 


This classic game, at one time played with small pebbles in 
ancient Greece, is given an up-to-date touch in this 
computerised version. You must jump over one peg with 
another, either horizontally or vertically, and the peg that has 
been jumped over is removed from the board. The object of 
the game using this movement is to clear the board of pegs 
leaving one in the middle. In this game you move by entering 
the co-ordinates of the peg you wish to move followed by the 
co-ordinates of the position you wish to move to. The 
computer will reject any illegal moves. You enter the side 
number and then the top number, eg if you wish to move peg 6 
(side co-ordinate), 4, (top co-ordinate) to position 4 (side 
co-ordinate) 4 (top co-ordinate), you would first enter ‘64’ 
followed by ‘44’. 


If you succeed in completing the puzzle, the computer will tell 
you how many moves you took. If you are not so fortunate, the 
computer will display the number of pegs still left. 


If after a number of attempts you still cannot succeed, then try 
the solution below. Many thanks to George Furlonger of 
Fareham for his solution. 


SOLUTION: 

46 - 44, 65-45, 57-55, 37-57 45-65, 
75 - 55, 73-75, 63-65, 54-56 57-55, 
25 - 45, 55-35, 75-55, 34-54 36 - 34, 
43 - 63, 51-53, 31-51, 32-52 63-43, 
51-53, 43-63, 55-53, 63-43 34 - 32, 
13-33, 15-13, 43-23, 13-33 32-34, 
24 - 44. 
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1@ REMEXAXKEXXSOLITARE RKKXEXKEK 
15 GOSUE 4a@ 

2@® GOSUR 988 

3@ GOSUBR 25a 

4O@ REMXXKXKAXKMOVEXEXKEK 

5@ PRINT:PRINT"Which peg do you wish to 

move?" 

6@ INFUT A 

7® IF A=99 THEN 240 

B@® IF A<11 OR A>77 THEN 3e@ 

9@ IF AC(A)A>79 THEN Sa 

95 PRINT 

10@ PRINT A: "to where?"; 

11@ INPUT B 

120 IF B<ii OR B>77 THEN 118 

12@ IF ACBI<SE THEN 110 

14@ AC(A+B) /2)=E:A(A)=E:A(B)=79 

15@ MV=MV+1 

169 CO=6 

17® FOR F=11 TO 75 

18@ IF A(FI=79 THEN CO=CO+1 

19@ NEXT F 

20@ GOSUB 25e@ 

205 PRINT 

210 PRINT"There are ";COs" pegs still on 
the board" 

229 IF CO<>1 THEN 40 
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228 

it 
END 
24a 


IF A(44)=79 THEN FRINT:SPRINT"You did 


in just “smvs" moves!": 


PRINT: PRINT" The game is over, and y 


ou’ ve failed'":END 


250 
260 
279 
275 
280 
285 
290 
295 
300 
319 
329 
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REMKXEXKPRINT OUT/DISPLAYKXEXE 

CLS 

PRINT"Enter side co-ordinate first" 
PRINT 

PRINT TAB(18) "Enter 99 to concede." 
PRINT: PRINT 


PRINT" 12245 67" 
PRINT 
PRINT TAB(18); 


FOR D=11 TO 75 
T=10% CINT (D/1@) ) 
IF D-T=8 THEN D=D+2: PRINT 1/10: PRINT 


TAB (18)3:GOTO 250 


2408 
358 
268 
278 
29a 
400 
419 
420 
420 
449 


PRINT CHRS(A(D))3" "5 

NEXT DsPRINT " a 

PRINT: PRINT 

PRINT"Moves so far: "MV 
RETURN 
REMEXKKEXKINITIALISEXKXKEKE 
CLS 

DIM A(87) 

E=42 

FOR D=11 TO 75 
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940 
950 


T=10% CINT (D/1@) > 

IF D-T=8 THEN D=D+3 

READ A(D) 

NEXT D 

MV=0 

RETURN 

REMKEXXKKKXDATA BLOCK KKEXKEKK 
DATA 32,325 79579479, 32552 
DATA 22,32, 79, 79,79, 32,32 


DATA 79,79,79,79.79,79,79 
DATA 79,79,79,42,79,79.79 
DATA 79,79, 79.79.79, 79,79 
DATA 22, 32,79,79, 79.22.22 
DATA 22.32,79,79,79 
REMEAKKKK UDG’?S *4xke% 
FOR P=46416 TO 46422 

READ N:FOKE P.N 

NEXT 

DATA ©,0,0,12,12,0,0,0 
RETURN 
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THE AXEMAN COMETH 


This program takes you back 600 years to the little-known 
kingdom of Pendragon. King Edbert III is holding you captive 
and your last chance is to guess the word he has put before 
you. If you succeed, freedom, if not... well you'll see... 


This program has quite an extensive dictionary of words. It is 
worth typing them all in as you will need a good selection of 
words for agood game of hangman. You are given six chances 
at the beginning of the game and lose one chance for every 
wrong letter that you guess. When you think you know the 
word, enter the whole word. The computer will not accept the 
complete word if it is only displayed over the dashes, it has to 
be entered as a separate guess. If you guess the complete 
word wrongly you lose three guesses. 


The program makes extensive use of arrays and the string- 
handling commands of your computer. 


The pattern drawn if you win, is created in between line 1000 
and line 1040 simply by drawing concentric circles but using 
the Oric’s PATTERN command to give the dotted effect. 


1@ REM*XXXXTHE AXEMAN COMETHAKXKK 
2©@ GOSUB 9A0a@ 
30 L=LEN (WS) 
35 DIM DS$(2@) 
4® C=46 
45 FOR G=1 TO 20:D#(G)=""s NEXT 
S@ FAPER 6:INK © 
45 PRINT TAB(2@) "THE AXEMAN COMETH" 
67 PRINT: PRINT: PRINT: PRINT 
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7®@ PRINT TAB(18); 

8® FOR X=1 TO L:PRINT"— "“s;:NEXT X 

9®@ PRINT: PRINT: PRINT" THE WORD HAS "; 
L:" LETTERS" 

95 WAIT 100 

1@@ INPUT C#:FRINT 

194 MUSIC 1,3,5,8:WAIT 1@@:FLAY @.0,0,0@ 
1@5 N=e 

11@ IF LEN(C%)=1 THEN 14@ 

12@ IF C%=WS THEN 1000 

12@ C=C-2 

14@ FOR V=1 TOL 

15@ IF C#=MIDS(W$,V.1) THEN D&(V)=CH 
155 IF C#<>MID$(WS,V,1) THEN N=N+1 

16@ NEXT V 

18@ IF N=L THEN C=C-1 

19@ IF C<1 THEN 2@a@ 


202 PRINT:PRINT"YOU HAVE "C3" CHANCE/S 
LEFT":PRINT: PRINT 

205 PRINT TAB(18); 

21@ FOR V=1 TOL 

215 X$=Ds(¥) 


2290 IF D&(V)="" THEN Xgs="—" 
248 PRINT X$s" "3 
258 NEXT V 


30@ GOTO 196 
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1@@@ WAIT 16@:HIRES 


19@5 FATTERN 170 
1616 CURSET 124,108, 


1@20 FOR R=9@ TO 1 STEF-2 

1@22 SOUND 1, (1@4#R)+20.7: WAIT 10 

1@25 CIRCLE R+1.1 

1@2@ CIRCLE R,1 

1@40 NEXT R 

19@5@ PLAY 8,8@,@,@ 

1066 WAIT 12@:TEXT:CLS 

197@ PLOT 6, 1@,"WELL DONE, YOU EVADED T 
HE AXEMAN" 

1@75 GET RS 

168® IF R#<>"Y" THEN 1@ae 

2000 REMAKEKEEAXKK_LOSE KXERKEKKKEE 

2016 PAPER @:INK 7:CLS 

2020 PRINT: PRINT " 4b tedt stat 4 4 Het aE aE EE AE EH 
HHHEHHHEHEH HEHE" S PRINT 

2020 PRINT" ....The drums start to roll 


2@4@ PRINT:FRINT"The crowd gquietens down 


2O@5@ FPRINTSFPRINT"You step onto the stage 
2960 PRINT:FRINT"But this is no act. thi 
OE 


2670 PRINTSPRINT"Is for real. Your heart 
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2086 PRINT: FRINT"Beats faster, you put a 
ne." 

2090 FRINT:PRINT"The blindfold, the axem 
an" 

21@@ PRINT:IPRINT"Raises the shining blad 
e.." 

2110 PRINTSPRINT"You are no more, human. 
2112 PRINTIPRINTIPRINT " FHRGEREEEHES EEE HE 
He HEE HE HEHE HEHE EE AE AE aE HE EEE EE" 

2115 WAIT 9a@ 

2126 FOR T=1 TO 24:FLOT @,T.CHRE(1) 

212@ WAIT Z4:NEXT T 

214 END 

9000 REM**k**xCHOOSE WORDKE KX 

9@16 FOR K=1 TO INTCRND(1)*46@)4+1 

9020 READ WS 

902@ NEXT K 

9046 CLS 

908@ RETURN 

9110 DATA "PERPENDICULAR", "VAMPIRE". “ANG 
ULAR", "DIAMOND", "UMBRELLA", 

"SHREDDING" 

912@ DATA “DENTIAL", "ESTABLISHMENT", "MISU 
NDERSTANDING", "FUTURISTIC", 

"GROTESQUE" 

912@ DATA “PSYCHOLOGIST", "ALGORHYTHM", "C 
HRYSANTHAMUM",. "LOGISTICS", " 
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POSITIVE" 
914@ DATA "EXAMINATION", "TRAVELLER", "BAT 
CHELOR", "DEPRESSION", "PASTU 


RISED" 
915@ DATA "ORGANISATION", "SANCTUARY". "MA 


GNETISM". "“TACHOGRAPH". "“JUDI 

CIARY" 

9160 DATA “ROUNDAROUT". "SYNTHETIC", “MEDA 
LLION", "ALCOHOLIC", "CHIROFO 

SISstT" 

917 DATA "HARLEQUIN", "SOCIALIST", "CONSE 
RVATIVE", "HARMONIES", "CULIN 

ARY" 

9186 DATA "“FRETENTIOUS", "CIVILISATION", " 
WRINKLED", "GARGOYLE". "ANTIB 

TOTIC" 

919@ DATA "TEMPESTUOUS", "ARCHITECTURE", " 
GENETICS", "ZOOLOGIST","TCTA 

LITARTIAN" 

9206 DATA "BRUSQUE", "INTELLIGENCE". "UTOP 
TAN", "LUDICROUS", "VIVACTIOUS 

", "BULBOUS" 

921@ DATA "MANDATORY", "SPECTRAL", "OQINTME 
NT", "FLOUNDER", "HYDRAULICS" 

922@ DATA "RADIATOR", "PREPARATION", "TRAN 
SITICN" 
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WOODEN SHOE 


This is a version of an ancient English dice game, also known 
as Sweatcloth, in which three dice are thrown into a wooden 
shoe—hence the name of my program. 


You are given £30 to gamble with. You must enter your bet; 
any size of bet is allowed between £1 and your total fund. You 
then choose a number between one and six. The computer 
rolls the dice and informs you of your situation. If one dice 
comes up the same as your number, then you get your money 
back. If two dice are the same as your number then you gain 
how ever much you bet and if you are lucky enough to find all 
three dice the same as your choice then you gain twice your 
bet. 


For example, if you bet £5 on number’‘5’, and it comes up three 
times, then you gain an extra £10 as well as receiving your 
money back. 


Doesn’t sound bad, does it? Well if you play the game for some 
length of time you will see that, as in any other gambling 
game, the odds are stacked against you. To win, you need to 
break the £250 barrier. This can be done, despite the odds, as 
long as you get an early win. 


Lines 60 and 70 ask for your name which is used throughout 
the game to add a personal touch. The dice are rolled in line 
18@ and your win/loss is calculated in line 200. 


The main subroutine, starting at line 500 displays the amount 
of cash that you have left. 


159 


10 REM¥XX&EXXEWOODEN SHOES XKXKKKE EXE 

20 PAPER 6:sINK @ 

20 M=30 

4@ CLS 

5S@ PRINT: PRINT: PRINT 

6@ PRINT"WHAT IS YOUR NAME": INPUT NS 

7@ PRINT:PRINT:sPRINT“OK "3NS3" LET’S PLA 

Y WOODEN SHOE" 

73 WAIT 15@ 

8@ REMAKEEXKEMAIN LOOPXKXKXKX 

85 CLS:GOSUB Seo 

9@ PRINTsPRINT: PRINT 

1@@ PRINT"HOW MUCH WOULD YOU LIKE TO BET 
"SNS 

1@5 INPUT A 

11@ IF A>M THEN 100 

12@ M=M—-A: PRINT: PRINT 

13@ PRINT"WHICH NUMBER ARE YOU BETTING O 

N "sPRINT TAB(35) NS 

1235 INPUT B 

14@ IF B<i OR B>46 THEN 120 

15@ FOR C=1 TO 2 

168 W=0 

178 WAIT 8@ 

18@ D=INT(RND(1)%4) +1 

19@ PRINT:PRINT"DIE ";C3" FELL "3D 

195 PRINT 

2@@ IF D=B THEN W=A:PRINT:PRINT"SO YOU W 
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IN 

210 
220 
228 
248 
208 
268 
265 
279 


_"sWs" “SNS: PRINT 


M=M+W 

GOSUB 5ea 

NEXT C 

WAIT 200 

IF M>250 THEN 310 

IF M>@ THEN 85 

FOR J=1 TO 24 

PRINT"THE GAME IS OVER, BECAUSE YOUR 


BROKE!" 


529 


SOUND 1,1600,8:WAIT 20 

NEXT JzsPLAY 9,9,0,@ 

END 

FOR J=1 TO 25 

PRINT"YOU’VE TOPPED _25@, WELL DONE! 


SOUND 1, INT(2@0@/J).06 
PAPER INT(J/3)-—2 

PLAY 7,0,3,1200 

WAIT 20 

NEXT J 

WAIT 18@:PLAY @,9,0,9 

END 

REMKX EX KE EXMONEVRKXKMKKEKE 
PRINT: PRINT 

PING: WAIT 5® 

PRINT" XXXKKKEEKKEKKERER EKER EKER 


KEKEKKKE" 
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520 PRINT" YOU NOW HAVE _—"3M 

S25 PRINT 

S4Q PRINT" XEXKKEX ERK KEKE KAKKKAKK EERE 
KEKRKKKK" 

55@ RETURN 

36@ RETURN 
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DIGIT MUNCHER 


Your greedy gobbler may be yellow and of a similar shape to 
that made famous in the arcades, but that is where the 
resemblance ends. This novel game involves you zooming 
round the screen munching up any number which appears. 
You must avoid the ghosts which keep on appearing. 
Fortunately, they are the non-moving variety and will only 
capture you if you bump into them. The larger the number you 
munch, the higher your score. The figure ‘@’ is worth nothing 
and is only put there to distract you, though they will do you 
no damage if you eat them. Movement is continuous so care 
has to be taken as you steer your Muncher around the screen 
with the four arrow keys. 


The program includes on-screen scoring and the movement 
round the screen is relatively fast for a BASIC program. The 
main loop has been kept reasonably efficient and this has 
contributed to the smooth movement the game provides. An 
enjoyable game, indeed. 


The lines 240, 250, 260 and 270 check the keyboard input and 
convert it to the change in the Muncher’s co-ordinates, X and 
Y. Line 300 provides the simple sound and the routine from 
lines 600 to 640 adds the extra points to your score when you 
eat a number. 

10 REM*X*kxX*xDIGIT MUNCHERS*Xkxxk 

iS PRINT CHR (20) 

=O GOSUB 908008 

20 CLS:SC=a8 

4® Ag="" 

S@ X=19:Y=12 
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55 A=19:Y=12 
6@ PAPER @:INK = 
65 PRINT 


7@ PRINT" COOCOCECEE COO COEEE EEOC EEE CE CEC 


Cccccc" 
8® FOR T=1 TO 22:FRINT" ("3 TAB(48)"(" 


9@ NEXT TePRINT™ (COCO OOOO OCOC ECO CEECE CCE 
COOOEECOEEEEE 

10@ PLOT 14,@,"DIGIT MUNCHER "+CHRS(96) 
+" 1982" 

15@ PLOT 12,@,CHRS(1) 

200 PLOT X,Y,AS 

21@ PLOT 2,0,STR#(SC) 

220 QS=KEYS 

222 IF Q$="" THEN 225 

225 Vs=0s 

22@ GOTO 227 

225 O$=Vs 

227 A=X:B=Y 

24@ IF Q$=CHRS(B) AND X>2 THEN X=X-1:A¢= 
“ye 

25 IF Q%=CHR$(9) AND X<36 THEN X=X+1:A% 
=u 

26@ IF O$=CHRS(1@) AND Y<23 THEN Y=Y+1i:A 


gS 


27@ IF Q$=CHRS(11) AND Y?2 THEN Y=Y-1:A% 
=" HN 
200 PLAY 1,0,1,7 
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205 D= INTC(RND(1)*16) :DS=STRS(D) 
210 IF RND(1)>.9 THEN PLOT INTCRND(1) x22 
2+2, INT (RND (1) *22)4+2,D$+CHR 


$ (3) 
32@ IF RND(1)<.25 THEN FLOT INT(RND(1)x%= 


S)+2, INT (RND(1)*22)4+2, "7" 
250 PLOT A,B," " 
490 IF SCRN(X,Y)=Z9 THEN 1002 
495 IF SCRN(X,Y) 247 AND SCRN(X,Y)<58 THE 
N 6a@ 
518 GOTO 200 
6@@ WAIT 5 
4605 ZAP:WAIT 5 
61@ J=SCRN(X,Y) 
620 SC=SC+10@x* (J-48) 
64@ GOTO 2ee 
19@@ WAIT S@:EXPLODE: WAIT 5@ 
101 FOR A=1 TO 25:FRINT:NEXT A 
1@2@ PRINT" (COCO COC OEE OCOCOEOEEC OOO EE CCE 
COCCOCH™ 
1025 PRINT" ( 
on 
103@ PRINT" ( 
cn 
1040 PRINT" ( 
cn 
1050 PRINT" CC OCOCOOCOCEOCOC EEC ECE OCE CCC 
COCCOCC™ 
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1040 
1676 
1086 
11908 


1116 
1115 
1120 
1120 
7080 
9016 
7828 
9020 
9040 
9O@50 
9060 
9070 
7088 
99090 
71480 
F129 


FOR T=1 TO 15:FRINT:NEXT T 

FLOT 10,98,"YOU SCORED "+STR#(SC) 
PLOT 24,8, CHRS (3) 

PRINT" WOULD YOU LIKE ANOTHER GO? 


INPUT V¢ 
IF VS="¥" OR VS="y" THEN GOTO Ze 
PRINT CHRS (20) 

END 

REM&kkkx UDG’s *k*kxK 

FOR F=46260 TO 46406 

READ N 

FOKE PN 

NEXT P 

DATA @,18,51,51, 63,43, 20,12 
DATA @, 20, 62,60, 56,60, 63,30 

DATA @,30,62,15,7,15,63, 22 

DATA @,12,20,62,62,51,51,18 

DATA 30,63, 62,45, 45.62, 62,63 
DATA 62,43, 62,63, 62,653,623, 63 
RETURN 
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FLIPPA! 


This intriguing game can provide you with a considerable 
degree of mental calculation. When you run the game, you'll 
see a mixture of ‘X’s and asterisks (*) on a three by three grid. 
You have to end up with an‘X’ in the middle and eight asterisks 
surrounding it. 


You enter the number of the place you want to hit with your 
Flippa. Flipping a corner piece causes those adjoining it to 
change into their opposites (ie an ‘X’ becomes a~* and a * 
becomes an ‘X’). Hitting a middle piece on aside (numbers ‘2’, 
‘4’, ‘6’ and ‘8’) causes the two pieces either side of it to change 
and hitting the middle piece reverses the middle pieces on 
each of the sides. The piece that you hit always changes. 


This all may sound a bit confusing but play a couple of games 
and things will fall into their places. This game will provide a 
challenge for you and your friends for a long time. 


From a programming point of view, there is nothing 
remarkable in this program. The bulk of the work is performed 
in between lines 385 and 540. The large collection of IF THEN 
statements perform the flipping functions mentioned above. 


Lines 50 to 98 determine how many ‘X’s and how many *’s you 
start off with. 

10 REMKXXKXEXFLIFPARXKXEX 

15 PAPER S:INk © 

20 DIM A(1@)=sDIM F(4) 

30 M=-1:Q=42: X=BB: P=0 

S@ FOR C=1 TO 9 

6@ A(C)=0 
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7@ IF INTCRND(1)}+.5)=@ THEN A(C)=X 

8® NEXT C 

9@ GOSUR 276 

16@@ M=M+1 

11 N=6 

i2@ FOR C=1 TO 9 

12@ IF A(C)=X THEN N=N+1 

14@ NEXT C 

15@ IF N=1i AND A(5)=X THEN 250 

155 PRINT: PRINT 

16@ IF M?@ THEN PRINT: PRINT" THAT WAS MOV 

E "3M 

17@ PRINT:PRINT"NUMBER OF X’s :"5N 

18@ PRINT 

19@ PRINT: PRINT"WHICH ONE DO YOU WANT TO 
FLIP. 2" 

200 GET At 

21@ WAIT 40 

22@ N=VAL (AS): IF N<i OR NF THEN 218 

22@ P=N 

240 GOSUB 280 

258 GOTO 98 

26@ END 

270 CLS:PRINT: PRINT TAB(29) "FLIPPA!" 

272 PLOT @,1,CHRS(7) 

274 PRINT TAB(28) "------—--—- "sPLOT ®,2,CH 

R$ (2) 

288 IF P<>@ THEN FRINT"YOU FLIPPED "3F 
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290 PRINT:PRINT:PRINT"1 2 3", CHR#(AC1) 
2s" "SCHRS(A(2))3" "3CHRS(A 

(2) 

20@ PRINT . 

41@ PRINT"4 5S 6", CHRS(A(4))5" "SCHRS(A 


(S))3" "sCHRS(AC4)) 


320 PRINT 

330 PRINT"7 8 9", CHRS(A(7))=" "sCHRS(A 
(B))s" "3 CHRS(A(9)) 

24@ RETURN 

35@ PRINT: PRINT 

368 PRINT"YOU SOLVED IT IN JUST "sM:" MO 

VES! 

361 WAIT 200 

362 PAPER @:INK 1:FOR T=1 TO 24 

265 PRINT" ##4## WELL DONE, FLIPPA CHAMP 
+e eEE" 

367 PLOT 0.1, CHRSCINT((T/4)41)) 

269 NEXT T:FING 

370 PING 

375 GOTO 275 

38@ MUSIC 1,3, INT(RND(1)%12)+1,8 

382 WAIT S@:PLAY @,0,0,0 

385 IF A(N)=X THEN RETURN 

39@ IF N=1 THEN F(1)=2:F(2)=4:F (3)=S:F (4 
»=10 

400 IF N=2 THEN F(1)=12F (2) =3:F (3) =10:F ( 
4)=19 
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4198 


IF N=2 THEN F(1)=22F (2) =52F (3) =62F (4 


)=10 

420 IF N=4 THEN F(1)=1:2F (2)=7:F (3) =10:F ( 
4)=10 

42@ IF N=5 THEN F(1)=2:F (2)=4:F (3) =82F (4 
d=6 

440 IF N=6 THEN F(1)=32F (2) =9:F (3) =102F ( 
4)=10 

45@ IF N=7 THEN F(1)=4:F (2)=5:F (3) =82F (4 
»=10 

460 IF N=8 THEN F(1)=7:F (2)=9:F (3) =10:F ( 
4)=10 

47® IF N=9 THEN F(1)=8:F (2)=S:F (3) =6:F (4 
.=10 

48@ FOR G=1 TO 4 

490 F=e 

509 IF A(F(G))=X THEN F=1 

51@ IF F=1 THEN A(F(G))=0 

520 IF F=® AND A(F(G))=Q THEN A(F(G)) =X 
Sz@ NEXT G 

54@ A(N)=X 

S5@ RETURN 
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LIFE, A SIMULATION 


The title says it all, this is a simulation of Conway’s Life, the 
battle between cells as they struggle for survival. If you wish to 
know alittle more about Life and the rules that apply to it, then 
read the preamble to Creator. 


The computer randomly generates a start pattern for the cells. 
Each generation then develops according to Conway’ 
principles. 


The computer handles every feature—all you have to dois sit 
back and watch the fascinating display. 


The POKE 48042,1 in line 312 is another way of changing the 
colour of the line by affecting its attribute. The POKE is simply 
changing the colour of the line to red (colour code 1). 


The program is not very long and will only take 20 minutes or 
so to type in. 

10 REMEXXXELIFE, a simulationkxxkxk 

20 G=1 

23 FAPER @:INK 2 

20 CLS 

40 DIM M(1@,10) 

3@ DIM N(1@,1@) 

60 FOR K=2 TO 9 

7@ FOR Z=2 T0 9 

B® IF RND(1)<.45 THEN M(kK,Z)=1 

90 N(K,Z)=M(K,Z) 

1@@ NEXT Z 
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11@ NEXT K 

12@ GOSUB zoe 

12@ 6=G6+1 

14@ FOR K=2 TO 9 

15@ FOR Z=2 TO 9 

16@ C=0 

17@ IF M(K-1,Z-1)=1 THEN C=C+1 

18@ IF M(K-1,Z)=1 THEN C=C+i 

19@ IF M(K-1,Z+1)=1 THEN C=C+1 

Bea IF M(K,Z-1)=1 THEN C=C+1 

21@ IF M(K,Z+1)=1 THEN C=C+1 

22@ IF M(K4+1,Z-1)=1 THEN C=C+1 

220 IF M(K+1,Z)=1 THEN C=C+1 

240 IF M(k+1,Z+1)=1 THEN C=C+1 

25@ IF M(K,Z)=1 AND C<>Z AND C<>2 THEN N 
(kK, Z)=8 

26@ IF M(K,Z)=@ AND C= THEN N(K,Z)=1 
27 NEXT Z 

28@ NEXT K 

29@ GOTO 120 

200 PING 

205 CLS 

%1@ PRINT 

312 POKE 489042,1 

313 PLOT 2,0,"LIFE, a simulation." 
214 PRINT 

218 PRINT"GENERATION: ";G:PRINT 
32@ FOR K=1 TO 10 
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398 
40@ 


PRINT TAB(1@); 

FOR Z=1 TO 1a 
M(K, Z) =N(K, Z) 

IF M(K,Z)=1 THEN PRINT"O"; 
IF M(K,Z)=® THEN PRINT" "; 
NEXT Z 

PRINT 

NEXT K 

RETURN 
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WHIRLPOOL 


A relaxing pattern this, just sit back and watch your computer 
gradually form a spiral shape. All the work is performed in line 
69 which uses CURSET to plot on the Hi-Res screen. 


Why not try and experiment with the equation in line 60 or with 
the two FOR/NEXT loops in lines 40 and 50. 


10 REMOOXWHIRLPOOLI KK 
20 HIRES 

Z@ CLS:PRINTIPRINT TAB (22) "WHIRLPOOL "sc 
HRS(96)3" 1982" 

4@ FOR J=1 TO 8 STEP.1S 

S® FOR A=1 TO 12 STEF .5 

60 CURSET (A¥JXCOS(J)4+110), (AKIKSINGI) +8 
@) 4 | 

7® NEXT A 

8@ SOUND 1, INT (256-(3*40)),z 

9@ NEXT J 

100 WAIT 8@:PLAY 0,0,0,0 

110 FOR T=1 TO 7 

120 INK T 

120 WAIT 5@ 

14@ NEXT T 

15@ GOTO 114 
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HOUSTON, WE HAVE 
A PROBLEM... 


A terrific game this, certainly one of my favourites in this book. 
It is loosely based on the classic ‘Lunar Lander’ game, but itis 
a moving graphics game designed to test your reflexes. 


You are flying your NASA spaceship back to Earth where you 
are expected to land in the Mid-Atlantic ocean—but there is a 
problem, the pre-programmed flight computer has gone 
haywire. You contact flight control at Houston, Texas, but 
they can give you little help. Fortunately, among your 
personal possessions on the spaceship, is an Oric which can 
provide you with some assistance as you try to bring your 
craft back to Earth by hand. 


Your small computer will indicate your fuel, velocity and 
height, and will also provide a graphic picture of your descent. 
Your craft is swaying from side to side as you descend due to 
the buffeting it receives from the strong Atlantic winds. To 
succeed you must have a velocity of less than +/- 10 kphanda 
height of no more than 15 metres. 


At the end of the game, the computer will give you askill rating 
which will be positive if you landed your craft and negative if 
you hit the ocean with so much force that your craft shattered. 
You control your rate of descent by the amount of thrust you 
divert to your retro-rockets. These will Slow your descent and, 
if used carefully and correctly, will provide you with a 
comfortable landing. The rockets are operated by pressing 
any key from ‘1’ to ‘9’. The ‘9’ key provides the most thrust but 
also uses the most fuel. You must be careful to conserve 
enough fuel for the extra thrust needed at landing. If you hold 
the rockets on for too long, then your velocity will go from 
negative to positive and you will shoot up the screen! 
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Lines 40, 50 and 60 provide you with random amounts of fuel, 
height and starting velocity so that no two games are ever the 
same. 


The major routine starting at line 900 generates the User- 
Defined Graphics necessary for this game. There are five 
graphics needed: four for the spaceship and one for the sea. 
User-Defined Graphics are extremely useful when writing 
games programs. On the normal Text screen you can have all 
sorts of shapes moving around, after all a custom-designed 
spaceship looks better on the screen than two ‘X’s. Your 
manual explains how to use UDGs (for short) very well. The 
one essential item for creating UDGs must be graph paper— 
without this you will find it much more arduous to design your 
own shapes. 


Below are the DATA statements for a few graphic shapes you 
may want to incorporate in your own programs: 


DATA 390, 63, 63, 63, 63, 63, 30,0. A ball for use in 
breakout, squash, etc. 

DATA 18, 51, 51, 63, 63, 30, 12, 0. 

DATA 390, 63, 60, 56, 60, 63, 30,9. Four ‘Pacman’ type 

DATA 12, 30, 63, 63, 51,51, 18,@. shapes. 

DATA 390, 63, 15, 7, 15, 63, 30, 0. 


DATA 68, 33, 33, 33, 33, 63, 0, @. An empty box. 


DATA @, 9, 0, 7, 15, 31, 63, 63. These three together 
DATA 12, 12, 30, 63, 63, 63, 63, 63. make a perfect laser 
DATA @, @, 0, 56, 60, 62, 63, 63. base. 


DATA 28, 28, 28, 8, 62, 8, 20, 34. A little man. If you think 

DATA 28, 28, 8, 62, 8, 20, 20, 54. he is too big-headed, 
try the next one. 

DATA 20, @, 28, 34, 34, 34, 28, @. Umlaut over o (60). 
Found in Germanic 
languages. 


DATA 1, 3, 7, 15, 31, 63, 0, @. Triangle pointing to 
the left. 
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DATA 32, 48, 56, 60, 62, 63, 0, @. Triangle pointing to 
the right. 


DATA 8, 28, 62, 28, 8, 0, 0, @. Diamond. 


DATA 12, 30, 63, 33, 33, 63, 30, 12. These three used 
DATA @, 0, 0, 63, 63, 0, 0, @. together, constitute a 
DATA @, @, 12, 12, 12, 12, 12, 12. head-on aircraft. 


As you can see from the sample DATA statements, the range 
of shapes and figures which can be created is extremely wide 
and varied. 


Back to the Houston game, there are a few other points of 
note. You may have noticed that when using the Oric with its 
INK and PAPER commands, that the colour of all which is 
displayed on screen changes. This does take away the ability 
to print multi-coloured lines or at least to have one line a 
different colour from another. There is a way of getting around 
this, using attributes and their codes. These are mentioned 
rather sketchily in the Oric manual so here | will show their use 
simply. Using the command PLOT, it is possible to change 
one line’s colour from the general INK colour of the time. For 
example, you wish to plotin the middle of the screen at line 12, 
the words, ‘Well Done!’ but you would like them in white while 
the general INK colour is blue. You would use a line 
something like this: 


The CHR$ (7) changes the colour into white. Any colour can 
be used in this way, simply by changing the number. The 
codes used for the INK and PAPER commands are the 
numbers used in the CHR$. 


There are problems with this, the rest of the line after the ‘Well 
Done.’ will also become the new colour. This can be avoided 
by plotting the original colour after the message. The main 
problem with this system is that one space either side of 
whatever is plotted is blanked out. This makes the use of this 
technique not really suitable for some arcade games. 


You can see that | have used colour plot techniques in lines 75, 
300, 310, 312, 470, 480 and 485. 
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Finally, before you go off and save your damaged spacecraft, 
line 350 provides the scrolling effect at the end of the game 
and lines 370 and 38@ the high score. 

1® REM*x*k HOUSTON, WE HAVE A PROBLEM *x 

15 PRINT CHRS# (4) s CHRS (17); CHR (20) 

2@ HS=—-8e0@:GOSUB 908: SC=6 

=@ PAPER @: INK 7 

4@ A=—2@—-INT (RND (1) *45@) sR=26:F=15 

S@ B=1200+INT (CRND (1) 280) 

6@ C=Z200+ INT (RND (1) kK2@@) 

7@ CLS 

75 PLOT @, 25, CHRS CH) 4"7 7777777777 2 2 2 Be 

8@ PLOT 1.@, "Houston, we have a proble 
m..."+CHRS(94)+" 1982" 

9@ B=INT (B):A=INT (A) sC=INT(C) 

16@ PLOT 1,2, "VELOCITY: "4+4STR#(A)4+" HE 
TIGHT: "+STR#(B)+" FUEL: "4+STRS 


{C)+" Li 
14@ RR=R:FF=F:PLOT RR.FF," “:PLOT RR 
+1,FF-1," " 


145 R=23+RND (1) #9-INT(RND (1) ¥9) 
15@ F=32-CINT((B/ 100) )+INT( (B/300) ) +8) 
155 IF F<4 THEN F=4 
16@ RR=R:FF=F:PLOT RR.FF."  ":PLOT RR 
+1,FF-1," " 
17@ PLOT RF, "#$%":PLOT R+i,F-1,"&" 
18@ SOUND 1,B,@ 
19@ PLAY 1,1,3,250 
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20@ TS=KEYS: T=VAL (TS) K1.7 

21@ WAIT 5a 

22@ IF T>C THEN T=08 

22@ C=C-T 

24@ B=B+A+ (T-S+RND (1) k2-RND (1) *2) 

2a@ A=A+ (T-S+RND (1) k2-RND(C1)*2) 

260 IF C#t AND B>100 THEN 7ae@ 

27@ IF ABS(BI<15 AND ABS(AI<1@ THEN GO 
TO 456 

29@ IF B>14 THEN 9a 

29@ IF Col THEN 2@5 

260 PLOT @,14,CHRS(5)+"YOU HAVE RUN OU 
TY OF FUEL" 

305 FOR G=1 TO = 

21@ EXPLODE: FOR T=1 TO 7:FLOT 4, 22,CHR 
$(T)=sPLOT @, 22, CHRS(T) 

312 PLOT ©,24,CHRS(T)sPLOT @, 25, CHRS(T 
) 

315 PLOT 4,1@,"YOUR CRAFT HIT THE WATE 
R" 

S17 PLOT 8,12,"AT "+STRS(ABS(A))+" KPH 


32@ WAIT 1@:NEXT T 

325 NEXT G 

320 SC=INT (SC—1@@-—ABS (A) ) 

350 FOR T=1 TO S2:PRINT:NEXT T 

360 PRINT"YOUR SKILL LEVEL IS ";SC 
3465 PRINTSPRINT:PRINT:PRINT: WAIT 2ae 
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37@ IF SC>HS THEN HS=SC 

38@ PRINT: PRINT"“BEST RATING SO FAR IS 
"sHS 

285 PRINT: PRINT: PRINT 

29@ PRINT: PRINT"PLEASE STAND BY FOR YO 
UR NEXT MISSION" 

295 FOR T=1 TO S:PRINT:NEXT T 

4@® WAIT 8@®:GOTO 46 

45@ REMk*X*k*xk SUCCESS kx¥xxk 

455 CLS 

46@ PLOT 9,19, "HOUSTON REPORT....":WAT 
T 26@ 

476 PLOT 7,13,CHR#(1)+"Against the odd 
Ss. you" 

4B8@ PLOT 7,15, CHRS(6)+"landed the crip 
pled " 

485 PLOT 5,17,CHRS(2)+"craft safely. W 
ell Done!" 

490 SC=C*224:GOSUB 920:G0TO 3598 

90@ REM**KX UDG’s *x¥xxkK 

9@1 FOR P=44360 TO 46299 

9@2 READ N 

903 POKE FN 

904 NEXT FP 

9035 DATA 2,7,15,31,6,46,6,15 

9@6 DATA 62,462,463, 62,12, 70,9,@ 

907 DATA 48,56, 60,62, 24, 24, 24,60 

9@B DATA 12,30, 62, 23,272,635, 52,32 
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909 DATA @, 22,51, 6%,62,63,62, 62 

919 RETURN 

92@ FOR J=1 TO 2 

92@ FOR T=1 TN 1@ 

94@ READ A,B 

95@ MUSIC 1.3,A,@:PLAY 1,0,1, 1900 

96@ WAIT BzNEXT T 

97@ NEXT J 

975 MUSIC 1,4,1,@:PLAY 1,0,1, 1000 

98@ WAIT 6@:PLAY ,0,0,0 

990 RETURN 

1@@@ DATA 1,30,2, 20,5, 60,2, 20,5, 30,4,6 
9,5, 20,6, 20,9,15,8,120 

101@ DATA 6, 20,9, 20,10, 60,8, 20,10, 70,1 
2, 6,10, 30,12, 20,12,15,12,15 

1907 ,1,6,10@00 
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SOME POSSIBLE 
APPLICATIONS FOR 
YOUR ORIC 


You have typed in and played many of the 30+ games in this 
book. | think it is now time just to briefly discuss some of the 
possible serious applications that you could put your Oric to. 


Many ideas which are put forward for personal computers— 
such as running the heating or for use as a diary or telephone 
directory are really not very practical. These are the kind of 
things that ahuman armed with a pen and a piece of paper, in 
the case of the latter two, can do much more efficiently. 


In the following chapter, | have tried to look fairly critically ata 
selection of possible uses to put your computer to and have 
included a few short routines and programs which may be of 
use. 


Below is a very useful program which copies the display of a 
low resolution screen onto a printer. 


1@ REM*XK*K*ASCREEN COPIERXEKK 
2@ FOR B=@ TO 25 

24 FOR A=@ TO 28 

4@ K=SCRN (A,B) 

S@ LPRINT CHRS(KE); 

&@ NEXT A 

7®@ LPRINT 

Ba NEXT B 
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OOO KAR KKK ORK A KK KR KERR KARE EEK 
¥k This 15 a demonstration of the %*% 
*¥* Oric Screen Copy earogram shown ¥€x* 
*xX above. This simple program can XX 
** dump the contents of the screen ** 
** onto a suitable printer. Kx 
KAKA KEKE KAKA KK AEE EKER KKK EEE 


ABCDEFGHI JELMNOFOQRS TUVWXYZ 
abcdefahi jklmnopaorstuvws yz 
LBTh456789@/\=4+—-_* 25 003713 ¢ 
‘SELL KS OF 


THE END 


RECORD KEEPING: Your computer is very useful as an 
adjunct to keeping records, like names of members of your 
club, or the records or cassettes in your music collection, or 
the numbers of trains you have spotted IF,and this is a big ‘if’, 
you want to sort the information into order (such as alpha- 
betical, or highest to lowest, or by some other category such 
as age), or you wish to extract something out about it (Such as 
the number of club members you have who live in Cambridge, 
or the number of records you have by The Beatles which were 
released before 1970). Unless you want to do this sort of 
manipulation with the information you have, the data is best 
kept on cards, but it is an invaluable service if you need to 
work with the data in some way. 


INVENTORY MANAGEMENT: The size of the memory you 
have will obviously dictate the kind of inventory records you 
can keep. If you, or your parents, run a small store, you may 
well find that you can divide the stock into types, and keep one 
type (such as canned goods) in one cassette data file. 
Alternatively, if you runa pub, you may find the kinds of goods 
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you have to keep in stock (15 types of beer, snacks like crisps 
and peanuts, various mixers and whatever) can be fairly easily 
kept within the memory you now have. You can write a 
program like this fairly easily into which you enter the sales 
from each day, and at the end of each week, the program tells 
you how much to order. 
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MATHS AND 
SCIENTIFIC WORK 


For the student and the professional, there are a lot of useful 
tasks your computer can be set to do. After all, calculating 
formulas and number crunching are two of the things which a 
computer does best. Below is a short program which can be 
used when dealing with circular sections. 


1 


REM*x*x*kCIRCULAR SECTIONS*kxkx 

CLS: PAPER 7: INK © 

PRINT: PRINT TAB(24) "ENTER RADIUS" 
INPUT Rs X=2kR 

MI=(PI®(X*4))/64 

AS=(PIK(X¥X))/4 

PRINT: PRINT" THE MOMENT OF INERTIA IS 


"eMI 


Bo 


PRINT:PRINT" THE POLAR MOMENT OF INERT 


TAs "3 2*MI 


98 


PRINT: PRINT“ THE AREA OF THE SECTION I 


S "3AS 

108 PRINT: INPUT"AGAIN"; AS: IF LEFTS(AS, 1) 
="Y¥" THEN RUN 

11@ END 


Most people only use complex algorithms when they are in 
education, be it as teachers or at the receiving end of the 
teacher. This means that there are strong linkages between 
this area of use for the computer and education. You'll find 
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that you understand a concept much better if you can write a 
program to solve it. It means that you have a full under- 
standing of the calculation and can present it to the computer 
in a series of logical straightforward steps. 


| remember with some nostalgia, how | borrowed the school’s 
computer and wrote a simple equation solver which 
proceeded to do my maths homework for me for that night. 
What | did not think about at the time was that | must have fully 
understood the work to be able to write the program. Belowis 
a simple quadratic equation solver, of asimilar type to the one 
| wrote all those years ago. 


1@ REM**xX*x*QUADRATIC EQUATION SOLVER#KEKX 
2@ CLS:FRINTSFRINT TAB(25)" AX*+BX+C=6" 
30 PRINT: INFUT"ENTER A"; X 

4@ PRINT: PRINT 

S@ INFUT"ENTER RB"; ¥ 

60 PRINT:IFRINT 

7® INFUT"ENTER C"3Z 

8@ CLS 

9O@ Y=-Y/2/X 

10@ Q=VYRY-Z/X 

11@ IF Q=6® THEN 2508 

12@ IF @>@ THEN 279@ 

120 E=SQR(-@> 

14@ PRINT" IMAGINARY ROOTS: " 

15@ PRINT: PRINT 

146@ PRINT" “*REAL* ROOT "s¥ 
17@ PRINT: PRINT" IMAGINARY ROOT "“sE 
19@ END 

190 PRINT" EQUAL ROOTS: "syY 

200 END 

219 PRINT" *REAL* ROOTS:" 

228 PRINT: PRINT 

220 PRINT TAB(28) Y+SQR(Q) 

240 PRINT:FPRINT TAB(28) Y-SQR(Q) 


STAFF PAYROLL: If you have a small firm, you may well find 
that the time taken to write a program to work out what you 
should pay each employee each week will be well rewarded. 
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Such information as tax could be automatically calculated, 
plus other deductions, and if you hook up a printer to your 
Oric there is no reason why you can’t get the computer to print 
out the pay slip for you. Of course, unless you have employees 
with sufficiently different pay levels and deductions to make 
this worthwhile, you may prefer to continue with present 
‘pencil, paper and calculator’ method of working out pay. 


ROUTINE CORRESPONDENCE: Without a printer, you 
cannot do this. But you may find, especially if you are 
organiser of a club which requires you to correspond with a 
reasonably large membership, that a standard letter—with 
provision for adding the person’s name and address at the 
beginning, plus some personalised material at the end of the 
letter—could be used to print out the letters as you require 
them. 


EDUCATION: This is a very big area, where your computer 
can be used to good effect. No matter which subject you’re 
studying, you'll probably be able to discover an enjoyable way 
to incorporate the computer into your study, and—as | said— 
you'll probably learn as much from programming it to help 
you as you will from running the program. 


It is very simple to create a number of simple interactive 
programs to use with young children, which will help them 
recognise such things as counting sequences, letters of the 
alphabet, and simple arithmetic. If you use it with young 
children, never force them to stay at the computer for a 
moment longer than they want to. They’ll think of itas agame 
which they'll return to over and over again if they are not 
forced to do so, and the familiarity they'll gain with working 
with computers will be worth as much, in terms of their 
education, as will the material they'll learn from the program. 


FOR A TEACHER: The Oric is excellent, not only as an aid to 
all children, both advanced and backward, but as a machine 
capable of printing out question sheets (if with a printer) or 
working out examination marks and finding the class average. 
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PERSONAL ACCOUNTS: This is another area where your 
computer can be very useful, especially if you do not use it as 
the final source of information about the state of your cheque 
book or whatever, but rather decide to use the computer 
program as a general indication of the mess (or otherwise) 
your personal finances are in. Final totting up should be done 
with the old standby of calculator, pencil and paper. 


SIMULATING: This is an area which can make great demands 
on your programming ability, but which can provide many 
enjoyable and useful hours at the computer. If, for example, 
you wanted to find out what you should do with your stocks 
and shares, you could feed them in, with their current market 
values, along with the way the prices for these have changed 
in the past month, and project the trend forward for a month. 


This could indicate not only which stocks you should sell, or 
which you should get rid of, but just what value your portfolio 
is likely to have at the end of that period. 


Of course, this is a simplistic example, and one which would 
hardly give very useful information on what you should do 
with that bulging portfolio, but it may give you some idea. 


Another idea: You could feed in your annual salary over the 
past, say, five years, noting how it has changed from year to 
year, add a counter-indicator on the rates of inflation in those 
years, and find out not only how your real spending power has 
changed in the period, but assuming the trends you’ve 
observed continue, how it will grow (or, horrors, shrink) inthe 
coming years. 


MAKING MONEY: Ah, you say, now we come to something 
really worthwhile. 


| will start with a warning. Many of these ideas will seem 
impracticable, and will not be applicable by you, but they may 
start you thinking of the kinds of things you could do with your 
computer which could enhance your income alittle (orevena 
lot). 


ARTICLES: Many people have found that writing articles for 
computer magazines is a good way to enhance their income. 
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To write an article which is accepted, and the magazines in 
Britain tend to have far, far more articles than they can ever 
print, you must work out three things. 


(1) Exactly what one thing will the article teach/demon- 
strate/discuss? 

(2) What sort of computer owners (ie what machine, or price 
bracket, or user, such as hobbyist, business person or 
whatever) will likely to be interested in the article? 

(3) Which magazine will it be sent to? 


Unless you can answer those three questions, you haven't got 
an article, you’ve got a vague idea or a concept. And no-one 
will publish that. Buy the computer magazines, all of them if 
you can afford to, but certainly buy the ones that you intend to 
write for. In 1983 the British magazines were all paying 
between £15 and £60 per article, with more for photographs, 
programs and diagrams supplied if these were related to the 
article. 


WHERE DO YOU SEND THEM?: The major magazines in this 
country are: 

PRACTICAL COMPUTING IPC, Quadrant House, Sutton, 
Surrey, SM2 5AS (01-661 3500). 

YOUR COMPUTER—(at the same address as PRACTICAL 
COMPUTING). 

PERSONAL COMPUTER WORLD Sportscene Publishers, 
14 Rathbone Place, London, W1P 1DE (01-637 7991/2/3). 
PERSONAL COMPUTING TODAY—145 Charing Cross 
Road, London, WC2H OEE. 

COMPUTING TODAY—(at the same address as PERSONAL 
COMPUTING TODAY). 

POPULAR COMPUTING WEEKLY—Hobhouse Court, 19 
Whitcomb Street, London, WC2 7HF. 

HOME COMPUTING WEEKLY—(at the same address as 
PERSONAL COMPUTING TODAY). 


You'll find there are a number of small publications which are 
‘machine-specific’. They are often printed by users’ groups or 
by the manufacturer, but welcome, and may pay for, suitable 
articles. 
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There are also many other computer magazines in Britain 
(such as EDUCATIONAL COMPUTING (Robin Bradbeer is 
the contact there) and WHICH Computer) which deal with 
more specific markets. If you can write for these markets, pick 
up acopy of the magazine from your local shop, and see what 
sort of style the articles are in, and make sure yours fits the 
pattern. 


SOFTWARE: Writing your own software and selling it ona 
cassette is a risky business unless you are well prepared. It is 
often better to send your programs to magazines (listed 
above), preferably dumped from a printer with a cassette 
copy. Though there is no certainty that they will be published, 
the losses incurred will be minimal compared with the cost of 
duplicating cassettes and advertising your software. 


IMPROVING YOUR 
PROGRAMS 


After all this discussion, you are probably itching to go off and 
write your own programs. Here is some further advice about 
writing programs both games and serious. Some of the 
comments made earlier are repeated here in a form of 
summary. 


You've probably gone through several stages as you develop 
your programming skills. After the first, brief struggle with 
BASIC, you suddenly discovered you could, after a fashion, 
write programs which ran. They may have looked pretty con- 
voluted when you looked at their listings, and friends may 
have needed a detailed explanation from you before they 
knew what to do when running the programs, but at least they 
worked. 


There comes a stage when you decide you're going to have to 
do better than that. But while you may be vaguely dissatisfied 
with your programs, you may not have much idea of howto go 
about becoming a better programmer. Here are a few guide- 
lines which may help. 
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First, have a look at a printout of your listing. Programs linked 
by REM statements look better, and are easier to understand 
when you return to them after a break. Of course, shortage of 
memory may preclude the luxury of REM statements, but this 
is rarely any worry with the Oric’s memory. REM statements 
filled just with a line of asterisks can prove quite useful in 
separating each major section of the program. Examine any 
unconditional GOTO critically. Too many GOTOs leap- 
frogging over other parts of the program show a lack of 
directed thinking, making programs run more slowly, and can 
make them almost impossible to decipher. 


It is very good programming practice, as | have suggested 
earlier, to have each of the main sections of the program (like 
the one which assigns the variables at the beginning of arun, 
the one which prints out the board, the one which works out 
who has won, and so on) in separate subroutines or 
procedures. The beginning of your program could well look 
like this: 


10 REM *NAME OF PROGRAM* 
20 REM ASSIGN VARIABLES 
30 GOSUB 9000 

40 REM PRINT BOARD 

50 GOSUB 8000 

60 REM HUMAN’S MOVE 

70 GOSUB 7000 

80 REM COMPUTER’S MOVE 
90 GOSUB 6000 

100 REM CHECK IF GAME OVER 
110 GOSUB 5000 

120 GOTO 50 


As you can see, this ensures that the program actually cycles 
through a continuous loop over and over again, until the 
program terminates within the ‘CHECK IF GAME OVER’ sub- 
routine. You can actually write a series of lines like these 
before you start writing anything else, and even before you 
know how you are going to actually perform some of the tasks 
within the subroutine. 


Then you can write the program module by module, making 
sure that each module works before going onto the next. It is 
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relatively easy to debug a program like this, and far simpler to 
keep an image of ‘where everything is’ when you do this, than 
when you just allow a program to, more or less, write itself. 


The listing should be, then, as transparent as you can makeit, 
both for your own present debugging, and for future under- 
standing of what bit carries out what task. The output of the 
program should also look good. Again, if memory is not a 
problem, make sure the display is clear and uncluttered. Use 
blank PRINT lines to space it out, use rules of graphic symbols 
or whatever to break the screen up into logical sections and so 
on. Once you have a program working satisfactorily, it is 
worth spending extra time on the subroutine which controls 
the display. Here you'll appreciate again the advantage of 
having all the display handling in one subroutine, as it will be 
easy to know where to go to enhance the display. 


Of course, as we live in a far from ideal world, it is unlikely that 
every single display command can be contained within one 
subroutine, but if you aim towards that end, it will make 
subsequent working upon the program much easier than it 
might be otherwise. 


The ‘structured’ approach outlined also helps you realise 
another aim of a good program—to do what you expected it 
to, every time you run it. You should write a program so that, 
even if you are not present when a friend decides to run it for 
the first time, it performs as expected. This means not only, of 
course,that it is properly debugged, but that the instructions 
(which can be contained within the ASSIGN VARIABLES sub- 
routine or procedure) are clear and complete. 


The user prompts should be clear, so the human operator 
knows whether to enter anumber, aseries of numbers, a word, 
a date, a mixture of letters and numbers, and so on. The 
program has to assume that the operator is a complete idiot, 
and that no matter how clearly the instructions and/or user 
prompts are stated, he or she will attempt to do things the 
wrong way. A classic example of this is the entering of dates. 
‘Mug traps’, as the routines to reject erroneous input from the 
operator are called, should be set up to reject a date being 
entered in a form which the computer cannot understand 
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(such as the month before the day) or which is clearly wrong 
(such as entering the 31st of February). You should ensure 
that, no matter what the operator does, the program does not 
crash or otherwise misbehave. This can happen if the program 
was expecting a numerical input, and the operator tried to 
enter a letter or a word, or hit ENTER without entering any- 
thing at all. You can get around this by always allowing a 
string input, going back for another input if the empty string is 
entered, and taking the ASC, VAL or CODE of the input to turn 
it into numerical form. 


Documentation is an area of programming which is often 
neglected. It is virtually essential for a program which is 
intended for publication, and most advisable for long 
programs which you’ve written for yourself. At the least, the 
documentation should include a list of variables, an 
explanation of the program structure (which should be easy to 
do if you’ve followed the ‘modular’ approach advised earlier), 
and brief instructions, especially if the program itself does not 
contain instructions. A sample run showing the kind of inputs, 
and the nature and layout of the program outputs, is also 
useful. 


Your program should run as quickly as possible. Every time 
there is a subroutine or GOTO call, the computer must search 
through the whole program, line by line, to find the specified 
line number, so placing often used subroutines near the 
beginning of the program will speed them up fractionally. 
That is why the instructions are often placed right at the end. 
You do not want the computer to have to wade through the 
initialisation and instruction lines every time it has been told to 
GOTO or GOSUB looking for the destination, or return line 
number. Use procedures rather than subroutines if you can as 
these run more quickly than subroutines. Use variables 
instead of constants. The computer takes a little more time to 
change aconstant into a number than it does for it tolook upa 
value in an array, for example. Define often-used variables 
first, so they will occupy the early slots in the variables store. 
The computer will search the store only until it finds the 
variable it wants, so there is no point in getting it to look at 
more entries than absolutely necessary. 
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Finally, and this is by far the best way to test a program you’ve 
written, callin a friend and sit him or her in front of the TV, and 
tell them to press RUN, without you saying anything, and just 
sit back and watch. If there is any hesitation, or the problem 
hiccups, you have more work to do. 


In summary, then: 

* Use REM statements 

Make program listing neat and logical 

* Use structured programming techniques, controlling the 
program through a loop of subroutine calls, or procedures 

* Examine unconditional GOTO commands critically, using 
REPEAT/UNTIL instead if it is appropriate 

- Make output displays attractive and clear 

+ Ensure all user prompts are clear 

- Add ‘mugtraps’ on all user inputs 

* Document your programs, even if you just make a list of 
variables 

+ Make your program run as quickly as possible 

* Test programs by allowing someone unfamiliar with the 
program to run it. 


Dealing with a specific area, most people find that they write 
games programs more than any other type of program. This 
may be because they are writing programs for their children, 
they have a serious interest in a particular type of game (eg 
wargaming or casino games), or they are children themselves. 
Whatever the reason for it, there can be no doubt that many 
games programs which are written, shelved and forgotten as 
‘boring’ could easily be brought back to life with a little work. | 
will try and give some indicators now, of what can be done in 
the form of hints and tips. 


The Oric, as I’m sure you know, is a fast machine, Without 
delay loops, the program would run far too fast. Delay loops 
give the computer the appearance of ‘thinking’. At the other 
end of the scale, do not let your program slow down too much, 
particularly on long adventure programs. This is a fault that 
the dear old ZX81 suffers from but it could happen on the Oric, 
if proper care is not paid to the program’s structuring. 


If the instructions are detailed and complex, then let the player 
have the option to read or nottoread them. Asimple‘DO YOU 
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WANT INSTRUCTIONS?’ together with an INPUT and an 
IF/THEN will suffice and will save experienced players from 
having to go through instructions they already know. 


The best way to keep a person’s interest in a program is to 
have a certain element of surprise built into the program. Do 
not let the program become completely predictable, and try 
and have some random element(s) within the game. 


Try and have within the game a degree of difficulty, for 
example, a ‘Breakout’ program could have five ball speeds, ‘1’ 
being beginners level; ‘2’, ‘3’ and ‘4’ being intermediate levels; 
and ‘5’ for advanced players. You must make sure that the skill 
levels really do affect the game and that the hardest one is 
attainable, although admittedly with a lot of hard work. 
Another way of maintaining aperson’s interest in a program is 
to award points, scores or ratings which are related to the 
speed and difficulty of the program. Another idea is the usage 
of a ‘rank’, ie awarding the player a rank such as, ‘best in the 
universe’ or ‘novice’ or ‘blithering idiot’. 


Points and ranks ensure that a player remains interested ina 
game for a longer time as he or she are trying to beat their 
highest score or ranking. 


Good use of graphics can initially hold a person’s interest but 
more than pretty pictures are needed to keep the person there. 
Graphics should be colourful if possible and should be 
backed up by a sensible use of sound. 


Many of the games programs if not all of them in this book, can 
act as starter or core programs for bigger and better things. 


LOADING AND SAVING 
WITH YOUR ORIC 


It’s almost ironic that despite the technology being employed 
in the design and production of ahome computer, manufac- 
turers are still having some difficulty achieving a reliable 
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loading and saving system for their computers. They perhaps 
may not admit it, but the number of people returning their 
computers to shops saying, ‘| cannot get it to load any 
programs’ is far too great. 


What this means is that most cassette interfaces are very 
sensitive. They do work, but only on certain levels with only a 
small range either side. I’m afraid that the Oric is no different 
in this department even with its Schmitt trigger, a device used 
to achieve better results. Once you have found the optimum 
recording and playback levels, you should not have any 
further problems. 


The first part of the system to discuss is the cassette recorder. 
An ordinary mono portable recorder, the kind that can be 
bought anywhere for between £12 and £25, should work 
perfectly well. | do not know of any recorders that refuse to 
work, but naturally some perform better than others. Particu- 
larly favoured ones include the Ferguson 3107, the W.H.Smith 
CCR8@0@, the National Panasonic range of mono portables 
and the Prinztronic portable. There are also special certified 
cassette recorders which are designed for use with computers 
and cost between £35 and £60. However, | know of no one who 
owns one of these, claiming a better performance than the 
owner of a standard portable. 


There seem to be two camps split between using battery 
power and using mains power. While battery is free of mains 
interruptions, it can get rather expensive and you can be sure, 
under the rules of Murphy’s Law, that your batteries will run 
down just as you are saving a very important program. If you 
do get a lot of mains ‘spikes’ then it may be worth considering 
a mains suppressor 


If you have not yet bought a cassette recorder than | suggest 
you look for the following features: a tone control; a pause 
button; a DIN socket as well as the usual Jack sockets; a tape 
counter; and at least a one year guarantee. 


Below are a series of hints which may aid your loading and 


saving. I’ve assumed that you know how to load and save as 
shown in the Oric manual. 
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(1) The volume and tone levels are vital to good recordings. 
Ona scale of one to 10, the volume should be set at between 
one and three and the tone at between eight and 10. These 
figures have been personally tested on more than a dozen 
recorders with 100% success. However, before you look at 
any of the other possible remedies, | suggest that you 
experiment with slightly different levels. 


(2) Check your cassette leads. Undo carefully the casing of 
the DIN plugs and check for aloose or poor connection. If still 
in doubt, check with a continuity meter. 


(3) You must maintain your recorder in perfect condition 
paying particular attention to cleaning the record, erase and 
playback heads. If you are unsure of their position, then 
consult your cassette instruction manual. These heads, as 
well as the two rollers that transport the tape, should be 
cleaned regularly with cleaning fluid not with a cassette head 
cleaner tape. These cassette cleaning tapes scrape the tape 
heads as they clean them. For cleaning the heads, go to a 
chemists and ask for Isopropyl Alcohol which is then applied 
to the recorder by some clean cotton buds. You can buy a tape 
cleaning kit with fluid, mirrors and applicators but really these 
do the job no better than the lsopropy! Alcohol and cotton bud 
combination. Speaking of alcohol, vodka will do just as gooda 
job as Isopropyl Alcohol. Apply a little of the fluid onto a 
cotton bud and just lightly rub over the heads. Use adry bud to 
take off any excess fluid and let the heads dry fully (at least 20 
minutes) before using. 


(4) Always use good quality cassettes, the computer tapes 
(C12s and C15s) areideal and not expensive. Check that there 
is no tape slack, and if there is, fast forward and rewind the 
tape backwards and forwards several times. This should 
remove any slack. If you wish to keep a program on acertain 
tape forever, then break off the tabs on the top of the tape 
case. Use a screwdriver to do this. The gaps left stop the 
record head engaging. 


(5) Never store your tapes near a magnetic field, eg a TV or 
where there is an uncommonly high temperature or humidity. 
Storing tapes in these conditions will cause the tapes to 
deteriorate quickly. 
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(6) It is always best to erase the tape before you record 
another program over it. Always write the loading name on the 
cassette for reference. 


(7) Try to keep safe a tape which always loads perfectly and 
consistently. If, at some time in the future you have a lot of 
troubles, then you can attempt to load the tape and ascertain 
whether it is the computer or not that is causing the trouble. 


(8) Check that there is nothing in the memory of the computer 
before loading in a new program. During the recording or 
playing process do not adjust the volumes or fiddle with any of 
the leads as this might cause some disturbance. 


(9) The two modes the Oric is equipped with are both quite 
reliable at the time of loading and saving. However, there have 
been reports of programs corrupting on loading a couple of 
weeks after being originally written and recorded. | can back 
these reports up with my own quite traumatic experiences, | 
lost the programs on several tapes due to corruption. The 
tapes contained many of the games in this book in their final 
form and seemed to convert themselves on loading into 
meaningless rubbish. Thankfully, this is a fairly rare 
occurrence which | hope will not affect you. 


To summarise this chapter, | would say the one thing that is 
needed is patience. Rome wasn't built in a day and it’s possible 
that your cassette loading/saving troubles won’t be solved ina 
day either. You must try over and over again with a small test 
program which is loaded and saved at different levels. If you 
cannot get it to work after trying all of my suggestions, anda 
few of your friends no doubt, then take it back to the place 
where you bought it from and seek help there. 


SOME USEFUL BOOKS 


These books are not Oric specific but don’t let that put you off 
considering them. Oric BASIC is not far from Microsoft 
BASIC, the format in which many of the programs are written. 
After typing in some of these programs, you can make various 
adjustments in the sound and graphics departments to suit 
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your machine and your tastes. Many of the books contain 
more than just programs, they include instructive comments, 
information on various aspects of computing and a whole lot 
more. They are all worth considering. 


THE PEANUT BUTTER AND JELLY GUIDE TO COMPUTERS 
JERRY WILLIS with D. Smithy and Brian Hyndman. 
Dilithium Press ISBN 0-918398-13-4. 

Despite the ridiculous title, this book is a useful addition to 
your library. It’s an American book written back in 1978 so it’s 
a little out of touch with present situations, but as a starter into 
the world of computing without too much technical detail, it is 
very good. Due to its age, have a hunt around for it and don’t 
pay more than a few pounds for a copy—you can often find it 
in reduced departments. 


TIM HARTNELL’S GIANT BOOK OF COMPUTER GAMES 
TIM HARTNELL, INTERFACE ISBN 0-907563-30-9. 
Described as the Barbara Cartland of computer books, Tim’s 
giant volume contains many excellent games just crying out 
to be converted to the Oric. Highlights include Chess, The 
Bannochburn Legacy and Chairman of the Board. 


1001 THINGS TO DO WITH YOUR PERSONAL COMPUTER 
MARK SAWUSCH, TAB BOOKS. ISBN @-8306-1160-6 

A magnificent book, the best source of ideas that | have ever 
found. | wouldn’t part with my copy for anything. If you really 
think that you have run out of ideas to put your computer to 
work then consider buying this. 


LEARN PASCAL ON YOUR BASIC MICRO 

JEREMY RUSTON INTERFACE ISBN 0-907563-27-9 
Jeremy has contributed much to the British computer scene 
particularly for the BBC Micro. But in this book every BASIC 
computer comes under the familiar Ruston treatment. This is 
one of the best books to use in learning a new computer 
language and in this book Jeremy takes us through the 
commands and structure of Pascal. The real bonus with this 
book is that it includes a Microsoft BASIC compiler which can 
be typed into your Oric with only a few changes and you can 
then run a limited version of the language, Pascal. 
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1001 BASIC COMPUTER GAMES 

DAVID AHL CREATIVE COMPUTING PRESS 

One of the classic works in the computer field, David Ahl has 
been around forever as far aS computing is concerned. A 
terrific collection of ideas and BASIC games in this book 
which when you consider it was originally written in 1973 still 
holds its own today. 


6502 ASSEMBLY LANGUAGE PROGRAMMING 

LANCE A. LEVANTHAL OSBORNE/MCGRAW HILL 

ISBN @-931988-27-6 

This is the machine code book if you want to learn the 
intricacies of 6502 programming. If you manage to plough 
through this weighty tome and, moreimportantly, understand 
it, you will wield tremendous knowledge of the 6502 
processor, the heart of your Oric. With that knowledge, you 
should be able to start writing your own machine code 
programs. 


A GLOSSARY OF TERMS 


The computer industry is full of jargon, so much so that a word 
describing all the jargon, ‘buzzword’, has now been coined. In 
this chapter, an explanation of the more widely-used terms is 
given. The terms are in alphabetical order and have been 
cross-referenced for ease of use. 


For anyone wanting to obtain a more complete list, then two 
books can be suggested. There is the huge reference book, 
‘The Computer Dictionary and Handbook’ written by Charles 
and Roger Sippl. This mammoth work of over 900 small-print 
pages is a magnificent guide and help but only for someone 
already interested and having some knowledge of computers. 
The hardback edition costs over £15 so it is only for the 
dedicated. For the newer enthusiast, | would recommend 
Dennis Jarrett’s excellent ‘The Good Computing Book For 
Beginners’. The title sums it all up, an excellent book for the 
first-time user, being very witty with plenty of critical, easy-to- 
understand explanations. 
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GLOSSARY OF COMPUTER TERMS 


Accumulator — part of the computer’s logic unit which stores 
the intermediate results of computations. 


Address — a number which refers to a location, generally in 
the computer’s memory, where information is stored. 


Algorithm — the sequence of steps used to solve a problem. 


Alphanumeric — generally used to describe a keyboard, and 
signifying that the keyboard has alphabetical and numerical 
keys. A numeric keypad, by contrast, only has keys for the 
digits one to nine, with some additional keys for arithmetic 
operations, much like a calculator. 


APL — this stands for Automatic Programming Language, a 
language developed by Iverson in the early 1960s, which 
supports a large set of operators and data structures. It uses 
a non-standard set of characters. 


Application software — these are programs which are tailored 
for a specific task, such as word processing, or to handle 
mailing lists. 


ASCII — this stands for American Standard Code for Informa- 
tion Exchange. This is an almost universal code for letters, 
numbers and symbols, which has a number between zero and 
255 assigned to each of these, such as 65 for the letter ‘A’. 


Assembler — this is a program which converts another pro- 
gram written in an assembly language (which is a computer 
program in which a single instruction, such as ADD, converts 
into a single instruction for the computer) into the language 
the computer uses directly. 


BASIC — stands for Beginner's All-purpose Symbolic 
Instruction Code, the most common language used on micro- 
computers. It is easy to learn, with many of its statements 
being very close to English. 


Batch — agroup of transactions which are to be processed by 
a computer in one lot, without interruption by an operator. 
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Baud — a measure of the speed of transfer of data. It generally 
stands for the number of bits (discrete units of information) 
per second. 


Benchmark — atest which is used to measure some aspect of 
the performance of acomputer, which can be compared to the 
result of running a similar test on a different computer. 


Binary — a system of counting in which there are only two 
symbols, ‘0’ and ‘1’ (as opposed to the ordinary decimal 
system, in which there are ten symbols, ‘0’, ‘1’, ‘2’, ‘3’, ‘4’, ‘5’, 6’, 
‘7’, ‘8’ and ‘9’). Your computer ‘thinks’ in binary. 


Boolean Algebra — the algebra of decision-making and logic, 
developed by English mathematician George Boole, and at 
the heart of your computer’s ability to make decisions. 


Bootstrap — a program, run into the computer when it is first 
turned on, which puts the computer into the state where it can 
accept and understand other programs. 


Buffer — a storage mechanism which holds input from a 
device such as keyboard, then releases it at a rate which the 
computer dictates. 


Bug — an error in a program. 


Bus — a group of electrical connections used to link a 
computer with an ancillary device, or another computer. 


Byte — the smallest group of bits which makes up acomputer 
word. Generally a computer is described as being ‘eight bit’ or 
‘16 bit’, meaning the word consists of acombination of eight or 
sixteen zeros or ones. 


Central Processing Unit (CPU) — the heart of the computer, 
where arithmetic, logic and control functions are carried out. 


Centronics — a type of interface (see ‘Interface’). The 
Centronics interface allows you to hook up printers, modems 
and many other peripherals to a computer. Your Oric has a 
Centronics Interface. 
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Character code — the number of ASCII (see ‘ASCII’) which 
refers to a particular symbol, such as 32 for a space and65 for 
the letter ‘A’. 


COBOL — this stands for COmmon Business Orientated 
Language, a standard programming language, close to 
English, which is used primarily for business. 


Compiler — aprogram which translates a program written ina 
high level (human-like) language into a machine language 
which the computer understands directly. 


CP/M — stands for Control Program/Microcomputer, an 
almost universal disc operating system developed and 
marketed by Digital Research, Pacific Grove, California. 


Cursor — a marker on the VDU screen which indicates where 
the next character will be displayed. 


Data — a general term for information processed by a 
computer. 


Database — a collection of data, organised to permit rapid 
access by computer. 


Debug — to remove bugs (errors) from a program. 


Disc — a magnetic storage medium (further described as a 
‘hard disc’, ‘floppy disc’ or even ‘floppy’) used to store 
computer information and programs. The discs resemble, toa 
limited extent, 45 rom sound records, and are generally eight, 
five and a quarter, or three inches in diameter. Smaller ‘micro- 
discs’ are also available for some systems. 


Documentation — the written instructions and explanations 
which accompany a program. 


DOS — this stands for Disc Operating System (and generally 
pronounced ‘doss’), the versatile program which allows a 
computer to control a disc system. 


Dot-matrix printer — a printer which forms the letters and 
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symbols by a collection of dots, usually on an eight by eight, 
or seven by five, grid. 


Double-density — adjective used to describe discs when 
recorded using a special technique which, as the name 
suggests, doubles the amount of storage the disc can provide. 


Dynamic memory — computer memory which requires 
constant recharging to retain its contents. 


EPROM — this stands for Erasable Programmable Read Only 
Memory, a device which contains computer information in a 
semi-permanent form, demanding sustained exposure to 
ultra-violet light to erase its contents. 


Error messages — information from the computer to the user, 
sometimes consisting only of numbers or a few letters, but 
generally of a phrase (such as ‘Out of memory’) which points 
out a programming or operational error which has caused the 
computer to halt program executions. 


Field — acollection of characters which form a distinct group, 
such as an identifying code, a name or a date; a field is 
generally part of a record. 


File — a group of related records which are processed 
together, such as an inventory file or a student file. 


Firmware — the solid components of a computer system are 
often called the ‘hardware’, the programs, in machine- 
readable form on disc or cassette, are called the ‘software’, 
and programs which are hard-wired into a circuit, are called 
‘firmware’. Firmware can be altered, to a limited extent, by 
software in some circumstances. 


Flag — this is an indicator within a program, with the ‘state of 
the flag’ (ie the value it holds) giving information regarding a 
particular condition. 


Floppy disc — see ‘Disc’. 


Flowchart — a written layout of program structure and flow, 
using various shapes, such as a rectangle with sloping sides 
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foracomputer action, and a diamond for acomputer decision, 
is called a flow chart. A flowchart is generally written before 
any lines of program are entered into the computer. 


FORTRAN — a high level computer language, generally used 
for scientific work (from FORmula TRANslation). 


Gate — a computer ‘component’ which makes decisions, 
allowing the circuit to flow in one direction or another, 
depending on the conditions to be satisfied. 


GIGO — acronym for ‘Garbage In Garbage Out’, suggesting 
that if rubbish or wrong data is fed into a computer, the result 
of its processing of such data (the output) must also be 
rubbish. 


Global — a set of conditions which affects the entire program 
is called ‘global’, as opposed to ‘local’. 


Graphics — a term for any output of computer which is not 
alphanumeric, or symbolic. 


Hard copy — information dumped to paper by a printer. 


Hardware — the solid parts of the computer (see ‘Software’ 
and ‘Firmware’). 


Hexadecimal — a counting system much beloved by machine 
code programmers because it is closely related to the number 
storage methods used by computers, based on the number 16 
(as opposed to our ‘ordinary’ number system which is based 
on 10). 


Hex pad — a keyboard, somewhat like a calculator, which is 
used for direct entry of hexadecimal numbers. 


High-level languages — programming languages which are 
close to English. Low-level languages are closer to those 
which the computer understands. Because high-level langu- 
ages have to be compiled into a form which the computer can 
understand before they are processed, high-level languages 
run more slowly than do their low-level counterparts. 
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Input — any information which is fed into a program during 
execution. 


|/O — this stands for Input/Output port, a device the computer 
uses to communicate with the outside world. 


Instruction — an element of programming code, which tells 
the computer to carry out a specific task. An instruction in 
assembler language, for example, is ADD which (as you've 
probably guessed) tells the computer to carry out an addition. 


Interface — apart from being the name of my publisher, an 
interface is a boundary between systems. The most likely use 
of the term that you will come into contact with is an interface 
being some form of physical connection between a computer 
and another item such as a printer. This other item is often 
known as a peripheral item (see ‘Peripheral). 


Interpreter — converts the high-level (‘Human-understand- 
able’) program into a form which the computer can 
understand. 


Joystick — an analogue device which feeds signal into a 
computer which is related to the positon which the joystick is 
occupying; generally used in games programs. 


Kilobyte — the unit of memory measurement; one kilobyte 
(generally abbreviated as K) equals 1,024 bytes. 


Light pen — a handheld light-sensing device, shaped like a 
pen, which can be used with your computer for menu- 
selection, games playing, artwork, etc. A light pen detects the 
brightness of a portion of a screen. 


Line printer — a printer which prints a complete line of 
characters at one time. 


Low-level language — a language which is close to that used 
within the computer (see ‘High-level language’). 


Machine language — the step below alow-level language; the 
language which the computer understands directly. 
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Mainframe — the term for ‘giant’ computers such as the 
IBM 307. Computers are also classed as minicomputer and 
microcomputer (such as the computer you own). 


Memory — the device or devices used by a computer to hold 
information and programs being currently processed, and for 
the instruction set fixed within acomputer which tells it how to 
carry out the demands of the program. There are basically two 
types of memory (‘RAM’ and ‘ROM’). 


Microprocessor — the ‘chip’ which lies at the heart of your 
computer. This does the ‘thinking’. 


Modem — this stands for MOdulator/DEModulator, and is a 
device which allows one computer to communicate with 
another via the telephone. 


Monitor — (a) a dedicated television-screen for use as a 
computer display unit, contains no tuning apparatus; (b) the 
information within a computer which enables it to understand 
and execute program instructions. 


Motherboard — a unit, generally external, which has slots to 
allow additional ‘boards’ (circuits) to be plugged into the 
computer to provide facilities (such as high-resolution 
graphics, or ‘robot control’) which are not provided with the 
standard machine. 


Mouse — a control unit, slightly smaller than a box of 
cigarettes, which is rolled over the desk, moving an on-screen 
cursor in parallel to select options and make decisions within 
a program. ‘Mouses’ work either by sensing the action of their 
wheels, or by reading a grid pattern on the surface upon which 
they are moved. 


Network — a group of computers working together. 


Numeric pad — a device primarily for entering numeric 
information into a computer, similar to a calculator. 


Octal — a numbering system based on eight (using the digits 
‘Q’, ‘1’, ‘2’, ‘3’, ‘4’, ‘5’, ‘6’ and ‘7’). 
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On-line — device which is under the direct control of the 
computer. 


Operating system — this is the ‘big boss’ program or series of 
programs within the computer which controls the computer’s 
operation, doing such things as calling up routines when they 
are needed and assigning priorities. 


Output — any data produced by the computer while it is 
processing, whether this data is displayed on the screen or 
dumped to the printer, or is used internally. 


Pascal — a high level language, developed in the late 1960s by 
Niklaus Wirth, which encourages disciplined, structured 
programming. 


Peripheral — the name given to any input or output device 
which can connect up (usually through an interface) to the 
CPU and the memory of a computer. 


Port — an output or input ‘hole’ in the computer, through 
which data is transferred. 


Program — the series of instructions which the computer 
follows to carry out a predetermined task. 


PILOT — a high level language, generally used to develop 
computer programs for education. 


RAM — this stands for Random Access Memory, and is the 
memory on board the computer which holds the current 
program. The contents of RAM can be changed, while the 
contents of ROM (Read Only Memory) cannot be changed 
under software control. 


Real-time — when acomputer event is progressing in line with 
time in the ‘real world’, the event is said to be occurring in real 
time. An example would be a program which showed the 
development of a colony of bacteria which developed at the 
same rate that such areal colony would develop. Many games, 
which require reactions in real time, have been developed. 
Most ‘arcade action’ programs occur in real time. 
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Refresh — the contents of dynamic memories (see ‘Memory’) 
must receive periodic bursts of power in order for them to 
maintain their contents. The signal which ‘reminds’ the 
memory of its contents is called the refresh signal. 


Register — a location in computer memory which holds data. 


Reset — a signal which returns the computer to the point it 
was in when first turned on. 


ROM — see ‘RAM’. 


RS-232 — a standard serial interface (defined by the 
Electronic Industries Association) which connects a modem 
and associated terminal equipment to a computer. 


S-10@ bus — this is also a standard interface (see ‘RS-232’) 
made up of 100 parallel common communication lines which 
are used to connect circuit boards within micro-computers. 


SNOBOL — a high level language, developed by Bell 
Laboratories, which uses pattern recognition and string 
manipulation. 


Software — the program which the computer follows (see 
‘Firmware’). 


Stack — a temporary store used by the CPU for return 
addresses, etc. which are accessed on alast in first out (LIFO) 
basis. 


Subroutine — a block of code, or program, which is called up a 
number of times within another program. 


Syntax — as in human languages, the syntax is the structure 
rules which govern the use of a computer language. 


Systems software — sections of code which carry out 
administrative tasks, or assist with the writing of other 
programs, but which are not actually used to carry out the 
computer’s final task. 
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Thermal printer — a device which prints on heat-sensitive 
paper. Although thermal printers are quieter than other 
printers, the output is not always easy to read, nor is the used 
paper easy to store. 


Time-sharing — this term is used to refer to a large number of 
users, on independent terminals, making use of a single 
computer, which divides its time between the users in sucha 
way that each of them appears to have the ‘full attention’ of the 
computer. 


Turnkey system — a computer system (generally for busines 
use) which is ready to run when delivered, needing only the 
‘turn of a key’ to get it working. 


VDU — a Visual Display Unit issome form of screen, such asa 
monitor or the humble family television. The computer 
outputs onto the screen. 


Volatile memory — amemory device which loses its contents 
when the power supply is cut off (see ‘Memory’, ‘Refresh’, 
‘ROM’ and ‘RAM’). 


Word processor — a dedicated computer (or a computer 
operating a word-processing program) which gives access to 
an ‘intelligent typewriter’ with a large range of correction and 
adjustment features. 
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you. Contained within are over 35 exciting, original games 

specially written for and stretching the capabilities of your 
(Ol aromexelan) olenc=1a 


Play ‘Houston, We Have A Problem’, ‘Laser War’ and ‘The 

Forbidden Caves’ while trying to outwit the computer in ‘Four 

By Four’. Attempt to save your helpless band of athletes in 

wv rotele[-1qmm-lalemm dal-]amme[omm ce] am-to)snl-mmalelnnlel-1amaliole)iiale mame Olle lit 
Muncher’. 
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whatever your favourite type of game, this book has it. In 
addition to these programs, there is achapter to help you write 
your own software, a collection of routines to aid you anda 
comprehensive computer glossary. 


This then, is a dynamic book that will help you obtain 


maximum enjoyment from your Oric. After all, who could 
resist a game of ‘Eatie Sweetie’? 
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